re: 88E 
mm: S& me! 1964 
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Verschijnt 6-8 x p/jr. 














paa 2 Enmaud. 

pas 3 — 4 Uit de tederat 

pas 5 Overzicht res onale bijeenkomsten 
paa B — 7 Reeinnate adressen. 

pas 8 Uit de resin bladen 

vas 9 Atom titeratuur. 

ea3 10 - 24 Handieidins Intomaster. 

paa 25 — 21 Saundbvard voor de ATOM. 

pas 52 = Zú De pelossing van het GRMDD raadsel. 
pas 25 Joystick reactie, 

pas ZE - 37 Uitbreidingen met P-CHARME. 

pas ZE — UO Mare directory voor de DOS 

sas ál — 45 SUPER-DRAW een superieur erosranma 
pas 47 De inktjet printer 

pas GE — 55 Extra statements met P-CHARME 

pas 54 — 57 Jorstick aanpassingen vanuit Betsie en Brabant. 
pas 55 — El Atom Power Piottina. 


pas EZ - E4 Het G-FILL statement. 

sas De Symbolische Assembier. 

pas E23 - TW Insezonden brieven 

pas 71 — 74 Memory Editor, 

pas 75 — 76 Cassette Catatos. 

bas 77 » 84 Furth 

pas 85 » 90 Twee artikelen over de kleurenkaart uit Detft, 
sar O1 P-CHARME nu fouttoos 

pâs 92 — 8 diverse listings. 
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MET NADRUK EN DAAROM MET HOOFDLETTERS HET VOLGENDE: 


COPIJ WELKE BREDER IS DAN 17 CM. GRAT ONHERROEPELIJK DE PRULLERAK 
IN. EEN ENKELING HOUDT ZICH HIERAAN NIET, GELUKKIG DE MEESTEN WEL. 


Ook bis deze Acorn Nisuws behoort een schijf welke naar alie 
resio's wordt SSStUUTd, MITS de vorige retour is ontvansen. Tot op 
heden (17-46-85) is van 5 Reio's de schijf nos niet retour, 


De rasio delft heeft nos enise Kleuren kaarten in voorraad 
voor bestetiinsen TEL Q7@ — 899094 
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Voorzitter: Th. van Kempen. 
Het Puyven 71. 
5672 RB Nuenen. 
Telt DáD — SIE21E 


Secretaris: A. Jonselins. 
Klokkensietershoeve 3 
7526 SB Apeldoorn. 
Telf G55 — 417314 


Penningmeester: G. Visser. 
Harinevliet J91. 
88352 HL Zwotle. 
Teif 835B — S4ESE1. 
Giro S244233 
Bank 93.32.87. 285 
Beide t.n.v. Penningmeester Acorn computerclub. 
Zwol le. 


Redactie Acorn Nieuws. 
H. Reinders. 
Leeuwarderstraat 8 
3718 HX Groninsen. 
Teif 058 - 125458 


Bandiesarchief: H. Blisleven. 
Noordzeestraat 47 
1784 BL Den Hetder 
Tetf 02230 — 16734 


Datasheets: G. Akkermans. 
Wikke 1 
1275 BR HUIZEN. 
Teif B2152 — 60294. 


Drukwerkarchief: F. Monsato 
Biesbosch 153 
8832 VD Zwolte. 


Uiterste datum inteverins cCoPyYi 


NR Z. 27 = 4 — 1984. 
NR 4, 25 — 5 — 1984. 
NRS. 27 = 7 — 19824, 
NR 6. 24 — B - 1924, 
NR 7. 28 - 3 -— 1984, 
NRS. 26 -1@ 1984, 
NR 1, 19 -12 — 1984, 


Van bovenstaande data wordt niet afseweken en ptaatsing kan een 
nummer worden uvitsesteld. 189 pasina's is het maximum: zo ook dit 
nummer. 
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Archiefdiensten. 

Voor bandjes. datasheets. EPROM's en alie andere vormen van 
dienstverlening kunt u terecht bii de resionate archiefdiensten. 
Mocht in uw resio iets Ontbreken, dan kan het resionaai bestuur u 
verder op wes helpen, 

De tandelijke archiefdiensten seven reselmatis een overzicht uit 
van wat er in die archieven aanwezig is. De reaionale 
archiefdiensten kunnen daaruit dan een Keus maken van wat zij in 
het archief willen hebben. 

Een overzicht van de besturen en de archiefdiensten vindt uv eiders 
in dit nummer. 

De “clubwinkel“. 





Genheusenkaart; 16 kBrte extra in de Aton fl. Sr 
Schakelkaart: meerdere EPROM's op Akxx Cinct. 74LS155) fl. 65 
Prosrammerkaart: zelf prosrammeren van EPROM's fi. 17e 
Herdruk Acorn Nieuws 13982: 97 pas, wetensmaardisheden fl. Er 
Jaarsans 1985} totaal ruim 450 cas. compleet leesvoer ft. SO 


BELANGRIJK BESTELLEN BELANGRIJK 


Hat bestellen van bovenstaande artikelen selieve uv te doen via 

uw resionale cenninsmeester. Alles wordt namelijk duurder en we 
houden de prijzen sraas selijk, Dat is ailteen moselijk door 
zoveel moselijk de portokosten te drukken dav col iectieve 
bestel | insen. 

Mocht u ha het uitkomen van dit nummer toch rechtstreeks willen 
bestellten: dient U bij de bestelling een bedrag van ft, b-— 
(zesse vier suiden) op te telien voor extra verzendkosten. 
Vermeerdert u het bestelbedrag niet met die fl. Gi--: dan zal 

uw besteltings naar uw resionate penninameester aestuurd worden 

* met zijn eerstvolsende zendina, 

Belansstelltins sevraasd. 

Echt veel belansstellins is er niet setoond uit den lande. Het 
enise onderwerp wat wel veel sevraasd Werd was de Bis Benny. 

Deze Klok zat binnenkort dan ook in het assortiment van de 
clubwinkel ossenomen worden. Het is nos even wachten sebtazen: want 
er moet eerst nog even sekeken worden in hoeverre de BB en andere 
ontwerpen elkaar bijten op poort PL B. 

Voor de reeds bestaande printplaten moet u ook nos enis seduld 
betrachten want de voorraad is op en het bijbestellen saat niet zo 
snel als verwacht was. U kunt gewoon uw bestellins piaatsen (bis 
Voorkeur bij uw res, pennm. weet U nos) zodat de printen verstuurd 
worden zodra ze weer voorradises Zijn. 


ERR HK 
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Overzicht van de reaivnale bijeenkomsten. 


3 MEI 1984 CENTRUM DE LANTAERN 
UTRECHTSESTRRATWEG 4 


„20.08 UUR NIEUWEGEIN. 
3 MEI 1984 BRABANT GEBOUW BR, A.N. 
HEVEL 7. 
2e. 58 VORSTENBOSS. 


4 MEI 1984 LIMBURG ZAAL HUIVENEERS 
STATIONSSTRAAT 35 
19.38 UUR SITTARD 


7 MEI 1984 ARNHEM t.o. POSTGIRO, 
VELPERWEG SE-A (kelder) 
28.88 UUR ARNHEM 


3 MEI 1984 TWENTE ALMELO 

Lokatie is sewijzisd. intichtinsen bijt 
Ronald Boers. 

Teif: A55 — 892325. 


10 MEI 1984 NOORD MUNTSTERHDES 
MUNTERHEERD 
189.38 UUR GRONINGEN. 


12 MEI 1984 NOORD-H DE KOPEREN KNOOP 
LIMBURG VAN STIRUMSTRAAT 


12.38 UUR AMSTERDAM 





15 MEI 1984 BRABANT DE WERFF 
V/D WERFFSTRAAT 
20.08 UUR EINDHOVEN. 


18 MEI 1984 COMPUTERDAG '84, 
LEYSDREAM-COMPLEX. 

11.88 UUR ROOSENDAAL. 

1 JUNI 1984 NOORD-H 


1 JUNI 1984 LIMBURG 

& JUNI 1384 ARNHEM 

7 JUNI 1984 BRABANT VORSTENBOSCH. 

B JUNI 1984 DEN HAAG EXODUSKERK 
BERESTEINLAAN 265 

28.85 UUR DEN HAAG. 

3 JUNI 1984 BELGIE OXACO-CEPENBERGCENTER 


BORSBEEKSE STEENWEG 65 
18.58 UUR BOECHOUT ( bis HOVE). 


AG. A 






ov. /geld. 


twente 


n. hoiland 


den haag 


delft: 


rotterdam 


centrum 


F. de Vries 
Scheldestraat 61 
9406 PG Assen 
05920-50880 


J. Ballijns 
Antaresstraat 12 
BIOS AJ Eameloord 
05270-14410 


M. van Alphen 
Kartanderhaf 40 
7641 XK Wierden 
05495-22654 


M, de Haan 
v. Hallstraat 537 
1051 AC Aasterdan 
020-B2755B 


A. Slootweg 
Jaarsveldstraat 36 
2544 CR den Haag 
070-6564422 


A. Bliek 
Meerkoetlaan 93 
2623 N65 Delft 
015-6115878 


M. Oosterom 
Hooidrift 1144 
3623 KV Rotterdan 
010-2553821 


F. Appelman 
Kastanjelaan 2 
4131 AV Vianen 
05475-76881 


REGIONALE ADRESSEN 


secretaris 


K. Dttes 
Wilkemaheerd 67 
9736 BN Groningen 
0950-417042 


6.J. Noorland 

Pr, Ireneweg 4 
7833 DE Schalkhaar 
05700-25294 


J. Laarman 
Potgieterstraat 13A 
7422 XP Nijverdal 
05486-17178 


N. Stad 
Plataanweg 47 
1544 PB Zaandijk 
075-280808 


KH, vd Heyden 

Pr. Annalaan 574 
2265 XZ Leidschendam 
070-2765726 


M. Schroder 
Vlaaingstraat 42 
2611 KX Delft 
015-1435772 


J. v Nieuwenhuyzen 
Brijhoekstraat 32 
3223-BE H'voetsluis 
01885-15129 


R.F. van Eijck 
Goudvink 21 

3435 RH Nieuwegein 
05402-46447 


penn.neester/leden 


J. de Goede 
Hunze 26 
9406 EE Assen 
05920-50675 
P.‚4411898 


6.J. Noorland 

Pr. Ireneneg 4 
7835 DE Schalkhaar 
05700-25294 

B, 1446208234 ACC 


sw, Verhoeven 


tWitbreuksweg 385-306 


7522 ZA Enschede 
8053-895474 
&P.4020195 


N. Stad 
Plataanweg 47 
1544 PB Zaandijk 
075-280808 

B, 9496724688 ACC 


RK. Tiel 
Vredeoord %6 
2544 TZ den Haag 
070-294170 
P.5469046 ACC 


P, Kramer 
Oudraedseg 36 
2612 SN Delft 
015-1415348 
P.5467960 ACC 


R. de Haan 

Brasen 125 

29B6 HA Ridderkerk 
01804-25160 
B.442401094 ACC 


P. van Mourik 
Ruiterstede 60 
3431 XN Nieuwegein 
03402-48781 

B. 30004622 ACC 


REGIONALE ADRESSEN 





REGIO voorzitter secretaris penn.aeester/leden 
arnhen R. van Dort H. Strusphler J. Hartog 
Eliasstraat 27 Kortenaerlaan 4 Keyenbergseweg 50 
6403 DA Alverna &881 ET Velp 6871 UK Renkum 
zeeland Cc. van Driel H‚ Heringa H‚ Heringa 
Walcherseweg 220 Bosseweide 32 Bosseweide 52 
4334 NB Niddelburg 4431 AE ’s bravenpolder . « « 
01180-37246 01103-24357 01103-24357 
P‚3009914 
brabant o. M.L, Verschuren Th. van Kempen P, Ehrlich 
Hasingenhof 30 het Puyven 71 Roostenlaan 266 
5625 NL Eindhoven 5672 RB Nuenen 5644 BS Eindhoven 
040-4146092 040-B3&210 040-1141835 
B, 528392794 
limburg H‚, Princen E. Sanders W. Ernst 
Europalaan w. 24 Korverert { Cypresstraat 94 
4075 AN Herkenbosch 6045 SL Roermond &1O1 JX Echt 
08752-25354 04750-26051 04754-56553 
P‚, 5457752 
belgie J, Lernout J. Myngheer R. Leyssens 
Parklaan 4 Fr.Verdonckstr. 39-8 Oude Baan 127 
2540 Hove 1140 Brussel 3550 Heusden 
053-4553475 002-2160404 


P.954723650149 ACC 





bandjesarchie datasheets drukwerkarchief 
H. Blijleven 6. Akkermans F. Monsanto 
Noordzeestraat 47 Wikke 1 Biesbasch 155 
1784 BL den Helder 1273 BR Huizen 8052 VD Zwolle 
02230-16734 02152-60294 


tt De penningmeester van Twente bevindt zich tijdelijk voor stagewerkzaaaheden 
in de VS, 
Zijn taak wordt tijdelijk (waarschijnlijk tot augustus) overgenomen door: 
C.‚ Collet 
prins Bernhardlaan 8 
7622 BG Borne 
074-6461989 
postgiro: 4418159 
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DE CURSOR nr 2 (brabant) 
De kleurenkaart herzien. Prosramma teltmachine,. Interpotator. 
joystickaanpassingen, basic=tekst-printer. Calculator. 





ACORNTJESBROOD april (twente) 
Graphic compress. BBC-basic op de ATOM, Geld verdeel spelletje. PLS 
Connector. Mas isch vierkant. Bespreking P=CHARME. Doolhof 


senerator. Spreekwooden raden. 80 kotoms VDU. Peano Kromme. 


DE STACKER maart {noord) 
Kraken van Missile base. Hoe saved de Atom op een casette. De DOs 
controter. Casette catatos. Optossins van een Disk drive probleem. 


DE STACKER aprit (noord) 
BBC-basic op de ATOM... Sneeuwloos plotten, Twee blokken teselijk 
saven. 


ROM janvari (rotterdam) 
turtle eraphics. handleidins schakelsysteem. De DOS-BOX. over het 
samenstellen van een eisen box. 


ROM aprii Crotteran) 
De DOS en de 2e 16k kaart. divere wetenswaardisheden. 


DATA-CHECK nr 1 (den haas) 
Locis esrobe vervots vertaling hand-leidins. Diverse kleine 
prosraanaatjes. De ASBK hox. 





DATA-CHEEK nr 2 (den haas) 
Extra scherm. Disk-drive aulifier problemen. diverse kleine 
pProsramma' s. 


Centertold centrum) 
Sottware butter. 


Bronssroen Eikettie nr2. (timburs) 
micresoft-basic. bank-sWitsins met EáK-kaart. Snake. Fast-plot. 
Kwardraten van Mezirac. 


Bronssroen Eikettse nr3 Cl imoute) 
Uiteenzettins van de COS. Epromt prosrasmer prosramma. Alies over 
READ DATE en RESTORE. Vervols op INFOMASTER. 


ATOMIX nr 7 (deit) 
Hish resotution plotter. 


ATOMIX nr 8 (deit) d 
Zettportret, Grafics source code. Grafics. Prosrammeren in FORTH. 
De Atom als terminal. On soto/ sosub source code. 


ATOMIX nr 9 (de1tt) 
Tips voor Bk kaart bezitters. verborsen intruktie's van de 6502. 
Circie en Deiete., Een schakelkaart obveratins syYsten,. 
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Literatuuroverzicht van verschenen boeken rond de 
Acorn Atom: 


1. Getting aquainted with your Acorn Atom, 
Een boek gevuld met allerlei mogelijke spelletjes, 
alsmede een handleiding voor zelf spelletjes te maken. 


2, Wake up your atom, 
Ook weer een boek met allerlei spelletjes, wao. tennis. 
De meeste spellen zijn gevuld met colour=statements, 
doch draaien net zo goed op een zwart-wit t‚ve of moni 
tor. 


3e Practical programs for the Acorn Atom and the BBC compu= 
tere 
Hierin een groot aantal programma's voor beide acorn 
computers, en verspreid over een aantal hoofdstukken, 
oa. graphies, spelìtejes, woordmánipulaties, reken 
programma's en een compiler, 


4. Atom business. 
Een boek met programma's toegespitst op de atom voor 
zakelijk gebruik. Osaa: een programma om }Jabeìs met naam 
adres, woonplaats uit te printen; een optel-programma; 
een heus grootboekprogramma, waarmee je uitstekend de 
financiën van de vereniging mee kunt berekenen en een 
wachttijd-simulatieprogramma, Tevens nog een programma 
om het voorraadbestand op bij te houden. 


5, The Atom magic book. 
Bij velen bekend, neem ik aan. 


6. Splitting the Atom, 
Een boek met overzichten van atom adressen in rome 
Te bestellen bij: Focusplan, 
57 Westgate, 
Gleckheaton, 
We=Yorks BD = 195 14, 


7. Het laatst bekende boek: 
Atomic Machine code» 
Een boek wat 23 volledig uitgelegde machine code progra- 
ma's bevat. O,a. data-sorts, mode 4 characters, games, 
pools prediction, tool-kite 
Het boek kost 5/5 
Boek en cassette $souroe code) kost 15,50 
Book en cassette (ready to run) kost 15.50 
Cassette kost 11,50 (alle prijzen engels ponden) 
Te bestellen bij: 
ECCE Productions, 
3/25 Station Road 
Sidcup, Kent, DAS 7IR. 


Zijn er nog meer bekende boeken? 
Laat het iedereen weten, d.mevo Acorn nieuwse 
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Het srodramma INFOMASTER list in het deheuden-sebied van 
#3200 tot #A000, Dit is 7,5 Kb seheuden en er moet dus in het 
hose sebied gestapeld zijns Raor deze keus kan er zoveel 
wodelijk data opseslagen worden in de computer, De arrays 
lìdsden vanaf #2B00, De data wordt orseslegen in het deheusen 
sebied beginnende met #2902, U kunt dus vullen tot #3C00 of 
$4000 of zelfs tot #8000 voor de bezitters van bijvoorbeeld een 
CKOS-kaart, 


Ket Programma wordt seladen met ELOAD'INFOMASTER* 8200, Het 
prodramaa runt vanuit textsrpace 84 . Van #8220 tot 48400 list 
assemblercode, 


OPMERKING 


Het prosraana ís ten alle tijde te 
storrpen via de escaretaets. 
Hierna kan het rrosranaa in 
textsrace 82 of 84 weer worden 
sestart zonder dat de DATABASE 
beschadisd ís, Zelfs na een break 
blijft de DATABASE onbeschadisd, 


Dit erosraama is een DATAEASE-programma. Hiermee is het 
dus mogelijk get records: die uit een of meerdere items bestaanr 
te werken. Ket aantal records is woxinaal &5535 en de 
bererkinden van het geheuden zullen dus eerder Limiterend 
werken. 

Een item neemt in een record 1 r 2 » of A bustes in heslad. 
Haar een ASCII-string wordt d‚m.v, een 2 bytes adres in een 
ASCII-file verwezen, Dit ASCIJ-Pile bevat iedere strind slechts 
eenmaal, Daardoor wardt er optimaal debruik gemaakt van het 
geteuden, Het aantal itens is maximaal 255. Dit kan bereikt 
worden bij 1 byte orslad. Het gemiddelde liat ondeveer op 2 
butes opslag » zodat er dan nos zelfs met 128 items druerkt kan 
worden, Een telefoonbestand kan bijvoorbeeld uit 7 iteus 
bestaan, Ten behoeve van staaboomonderzeek heb ik een 
databestand aandemsakt: waarbij per persoon teen record) zelfs 
44 items zijn dedefinieerd. 

In het prosrsbma is ook een moselijkheid tot MERGEN 
ingebouwd: waardoor zelfs zeer grote bestanden kunnen worden 
verwerkt, De bestanden mosen zelfs droter zijn dan het actuele 
coaruterseheusen, Zo heb ik een im drieen gedeeld bestand, 
wvasrin alle huwelijken te STEIN voor 1800 (962 stuks!!) zijn 
ordenomen. Ieder huwelijk bestaat uit B items. 

Ook is het wodelijk on met hexadecinale getallen te werkers 
zonder dat het #-teken te Noeven in te tupen. Dit kan 
bijvoorbeeld handig zijn als U een archief voor cassette-handjes 
wilt orzetten, wacrin U ook besin- veind- en startadres wilt 
ornemen. Deze hesadecinale getallen worden in 2 butes 
ordeslagen. 
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3,0 DATABASE 





Een hoeveelheid dedevens kunnen in het aldeneen in een 
bestand ondergebracht worden. Dit naemen we een DATABASE, Een 
BATABASE is oP te vatten als een in rijen en kolomaen indedeeid 
aroot vel reapier, Be rijen worden aak records genoeadi de 
kolommen iteas, De records worden senumserd vanaf 1, Dit gaat 
bij INFOKASTER automatisch in item O met de syabolische naam RNR 


(Recordnuamer) « De symbolische namen van de andere items 
moeten door U oPsedeven worden. Een tekening maakt dit 
aisschien wat duidelijker. 
Q 
“ 
NAAM PLAATS ARDNEENUMMER veen 


A AE 


RECORD JANSSEN) STEIN 
RECORD DASSEN |MEERS 





4,0 MENU-BESCHRIJVING 


Als U het rroáraama INFOMASTER runt dan krijst U het 
hoofdaene te zien, 


Dit menu seeft de volgende keuze mogelijkheden 3 

1. = EERSTE OPSTART 

2. <= LOAD DATA RESTAND 

3. = SAVE DATA HESTAND 

A, = UPDATEN 

Se = PRINTEN 

6. = SORTEREN 

7. = MERGEN 

8, = OVERZICHT 
Uit het boverstaande menu kunt U een keus maken. Natuurlik is 
het zo dat Ur als er nag geen data aanwezis ist slechts de Keus 


heeft uit de eerste twee aodeli kheden, Deze keuze 
mogelijkheden worden hieronder uitvoerig besProken, 
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4.1 EERSTE OPSTART 


Deze nogelijkheid heeft U nodis bij het aanmaken van een nieuwe 
database, Het is ers zinvol als U van te voren even orschrijft 
hoe U databestand er onseveer gest uitzien, Man kunt U or de 
eerste vraag AANTAL ITEMS? het juiste antwoord seven (N) . Met 
iten9 (nummering) hoeft U geen rekening te houden, 

Hierna wordt in een loor voor de itees 1 tot en met N de 
symbolische naam sevrasdd. Bijvoorbeeld : 


1, NAAM 
2. PLAATS 
3, etc. 


Nu moeten ue saan ordeven wat voor een saort inhoud in ecn 
iten komt, We onderscheiden 2 hoofdmoselijkheden : 


1. ALFANUMERIEK 
Als in een item cijfers en letters bewaard moeten 
worden (tekst) dan moeten we het item ALFANUMERIEK 
verklaren. 


2, NUMERIEK 

Als in een iten detallen bewzard moeten worden dan moet 
het iten NUNERIEK verklaard worden. Om een zo nuttig 
aaselijk debruik van het seheugen te kunnen azken 
moeten we nu daan orseven hoeveel butes sereserveerd 
aoeten worden om het setal or te sloan. Dit gebeurt na 
de vraad 1,2 of 4 bytes of hexadecimale getallen (-1). 
Hier zijn de vier sogelijkheden ; 


1. EEN BYTE GETALLEN 
Indien het op te slaan getal ligt tussen O en 255 
dan aoet U opgeven 1, Dit is bijvoorbeeld zo met 
dadensaaanden etc. 


2, TWEE BYTES GETALLEN 
Als het or te slaan getal list tussen O en 65535 
dan saoet U hier 2 oPseven, Dit kost voor bij 
bijvoorbeeld jaartal of de cijfercombinatie van de 
postcode, 7 


3. VIER BYTES GETALLEN 
Indien U set drote of nessatieve detailen wilt 
werken dan most U hier 4 orgeven:Er wordt dan 
dewerkt get de normale inteser setallen (trenzen 
ondeveer + en = 2 miljard) . 


A. HEXADECIMALE GETALLEN 
Wilt U werken t hexadecimale getallen dan moet U 
hier -1 ordeven,De getallen kunnen daarna zonder # 
insetvet worden. 





EN 
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De EERSTE OPSTART maakt automatisch 1 lees record aan. Er wordt 
nu naar de KOPTEKST devraadd. Dit is de tekst die later boven 
iedere rasdina geprint kan worden, Het zelfde seidt voor de 
DATUM die U moet oraever, 


4,2 LOA DATA BESTAND 


OP de vraag NAAM? dient U de maam or te geven waaronder U de 
vorise keer het bestand or bend heeft sezet, Na het lader wordt 
de DRATUM sevraasd,. Vul deze in zodat U ne wijzigen en 
vervolgens or band zetten de administratie doed bijhoudt. 


4,3 SAVE DATA BESTANL 


Aan een datsbestand kunt U een naam toekennen. Ket deze naan 
wordt uw bestand vervolsens op band dezet, Het begin- en 
eindadres van het seheusdensdebied dat oP band wordt sezet kunt U 
vinden als U het overzicht orvraast (zie 4,8). 


4,4 UPDATEN 





Met behulr van UPDATEN is het moselijk om records toe te voeden? 
te verwijderen of te wijdziden, 
We onderscheiden twee haofdmodes % RECORDMOIE en ITEMMOLE 


1. RECORDMODE 


ld 





Als wer vanuit het HOOFDMENU; UPDATEN kiezen Komen we 
binnen in de RECORDMODE. Op de vraag RECNR? zijn de 
volserde antwoorden podelijk: 


een (ledaal) getal 
Ieder record in het databestand heeft een nummer, Als 
U dus hier een lesaal nummer intsert kast het record met 
dit nummer aan de beurt: Het pradramna daat dan over 
in de ITEMMODE en besint bij ITEM. 


HELP) 
Het prodrenms laat nu zeer in het kort zien welke 
Commanda’s moselijk zin, 

“ of een return 
Terug naar HOOFDMENU. 


NEW 
Nu worden aan het bestand nieuwe records toegevaesd, 
We saan mu direct over in de ITEMMODE, Uit deze mode 
is te komen met of ° of UELREC, 
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EN 


RENUM Pa 
leder record heeft een eigen nuamer. ze worgén 
denummerd in volgorde zoals ze met NEW zijn aansemaakt. 
Heeft U later ww bestand op een ender kenmerk. 
gesorteerd (bijv, or maan) dan kunt U de records 
hernummeren (renumbder). Later ziet u dan bij 
uitrrinten van het RHR (recordnumner) dat U een 
orlorende teller heeft, 


LOC» 
Localiseer iten met nummer x, Dit is een hulpmiddel 
van een string of getal zoals dat in het bestand 
voorkont, Stel dat ITEM! de NAAM bevat dan ís na LOC1 
de voldend vraad WELKE NAAM 7, U kurt in JANSSEN en nu 
krust U alle recordnuaaers te zien van alle JANSSEN's 
in uw bestand, 


Ux 
List de inhoud van alle iteas zet nummer x op het 
scherm, 


Ax 
Quick mode voor iten met nummer Xx, In deze mode wordt 
bij UPDATEN alleen dit item behandeld, U Ioort dus 
door uw bestand volgens de lijn G=û, (zie tekening) 
Uit deze aode is te komen door terud te daan naar het 
HOOFDMENU, 


OPMERKING 


LOCx en Lx zijn af te breken door op de 
shifttoets te drukken, 


ITEMMODE 


Y doorloort in de ITEKMODE het actuele record van ITEMI 
tot ITEMN, Dit sebeurt in de numerieke volgorde (zie 
tekening lijn A-R), Vervolsens kont het volgende 
record (in het seheiuden) aan de beurt. - Dit gaat weer 
van ITEMi t/m ITEMN volgens de Jin C-D etc. (zie 
tekenind) Van het actuele record en het sctuele iten 
ziet U de inhoud. De coaputer staat om uw input te 
wachten, Lesale antwoorden zijn : 


een nieuwe waarde 
De vorige inhoud van dit iten wordt vervangen door deze 
nieuwe waarde, 


een return 
Ga naar het volsderde iten van dit record, Of als dit 
het laatste iten is da den naar het eerste item van het 
volsende record, Er wordt niets verander ann de inhoud 
van het iten. 


Ga terus nasr recordmode., 
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/ 
Ba direct naar het eerste item van het volgend record, 


1 
Geef aan dit iten dezelfde waarde als het 
overeenkonstide item van het voride record, 


\ 
Wis van dit item de aanwezige inhoud uit, Als dit de 
laatst insetyrte string betreft, dan wordt deze ook uit 
"het ASCII-file verwijderd. 


? 
Laat zier aan welk record we bezig zen. 


Ax 
Ga snel naar iten met numser x van dit record. 


DELREC 
Verwijder het actuele record uit het detabestand, 


HIELP) 
Hele mode, Laat de vorige comeando’s zien. 


4,5 PRINTEN 


Als U sekozen heeft voor PRINTEN dan volst nu het PRINTMENU, Or 
een return of °* gaat U terug naar het HOOFDMENU. Er zijn de 
volgende mogelijkheden in het PRINTMENY } 


1e 


PRINT 

Het bestand wordt uitgeprint zoaìs u dat zelf 
Sesrecificeerd heeft (zie verderor). Dit uitprinten 
kan zowel naar het scherm gaar ook naar een echte 
erinter, Stuurt U het naar een printer dan volst de 
vraa VANAF PAGNR ?. Dit is handig bij grote bestanden 
als U vanaf een beraaide pasina serrint wilt hebben. 
Een return is voldoende zis U slles serrint wilt 
hebben. 

OPMERKING 


Het printen is te onderbreken door even de 


shifttoets in te drukken totdat het record 
{regel} klaar is met printen, 


WIJZIGEN KOP 

De volgende zaken die in U printout bovensan de 
bladzijde kunnen verschijnen kunt U nu eventueel 
wijzider, 

a, le symbolische itemnamen, 


b, Me KOPTEKST 


Ce De DATUM 


PAG. 
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3, 


A 


PRINTER SETTING 
De voldende zaken kunt U met J(A) of N(EE) beinvloeden, 
Een return of een ander kerakter verandert niets, 


PRINTER 
Wel of niet naar een echte erinter, Nee is alleen 
naar scherm, 

Kor 
Wel of niet een kor boven de te erinten padina's, 


PAG NR 
Wel of niet het paginanummer boven de te erinten 
radina's, 


DATUM 
Wel of niet een datuw boven de te ervriìinten 
Pagina's. 


HOE ITEMS PRINTEN 
Hier kunt U opgeven hoe U de itens geprint wilt hebben. 


iTEN 
Hier seeft U oP of U een iten uberhaupt geprint 


wilt hebben. Zo ja verder met 
SUBKOP 


Uilt U boven iedere kolom de syeholische itennaan 
sderrint hebben ?, 


LINKS PRINTEN 
Hier ordeven of in een kolos naar rechts of links 
oPrgeschoaven moet worden bij Printen, 


NULLEN ONDERDRUKKEN 
Dit geldt alleen voor numerieke items. Indien 
JCA) dan warden de nullen bij printen vervangen 
door sraties. 


PRINTEREEDTE 
Hier orgeven hoe breed U een kolom wilt hebben bid 
Printen. Er daat niets verloren als U de breedte 
te klein kiest. Het item schuift dan de volgende 
kalos in, Oe de bovensteande vragen kunt U 
antwoorden met } 


a, een return 

Naar het voldende onderdeel 

b, 

terua naar PRINTMENU. 

Se. Gt 

ik wil snel naar item » om daar ar te geven hoe ik 


dat iten deprint wil hebben. Niet gebruiken bij 
PRIKTRBREELTE . 


INF 
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de JCA) of NEE) 


OMKEER RESET 
Als U de kolommen in dezelfde voldorde wilt hebben als 
de itens in het archief staan moet U dit kiezen, Dit 
is alleen nodig als U de omkerind bij printen wilt 
verwijderen, 


OMKEREN BY FRINTEN 

Als U van de normale volsorde van de kolommen sfwilt 
kont U hier terecht, Nadat U dezien heeft in welke 
volgorde de items normaal lisdens krijst U de kans om 
te wijzigen. U kunt ook een item in meerdere kolommen 
teselijkertijd laten afdrukken. Or return komt steeds 
het volgende item. Ne ” kont U terug in het PRINTMENU, 


SELEKTEREN 

Het ís mogelijk als U niet het hele bestand wilt 
sSerrint hebben om hier een selektie oP te Severn, Van 
een door U te kiezen item kunt U grenzen ordeven. Dit 
kan zowel een string als ook een setalselektie zijn: 
Bijv, U wilt alleen de namen van JANSSEN tot FIETERSEN 
eruit hebben, Of ook bijv. de huisnummers (zbijve 
item3) die tussen 10 en 20 lidsen, Heeft U het te 
kiezen item voor selektie negatief opgegeven (dus bidv, 
„5) dan volgt een NIET funktie over de selektie, Het 
andere woorden bijv. slle huisnummers < 10 en > 20 
worden wel deerrint, 


GEEN SELEKTIE 
Als U alle records weer mee wilt laten doen bij het 
Printen dan koat U hier terecht, 


OPMERKING 
Al de sesevens die U in het 
erintmenu ordeeft worden 


orseslagen in het dateabestand, 
Hierdoor gaan ze bij saven mee 
naar de band, zodat ze bij een 
volgende deledenheid weer selik 
ter heschikkind staan, 
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4.6 SORTEREN 


Nadat U te zien heeft gekregen welke itens er zijn: volat 
er or welk iteanummer het bestand desorteerd staat. De 
allereerste keer is dit natuurlijk op RNR (itea O0). Dit is 
namelijk de voldorde waarin de records zijn zandemaakt. Als het 
bestand or een numeriek item desorteerd is dan volst als dit wan 
hoos naar laad sebeurd is de toevoeging HL. Geen toevoeging 
betekent dus van laas naar hood gesorteerd, 

Nu volgt de vraad SORT NR 7 Op een return saat U terus naar het 
HDOFDHENU en gebeurt er verder niets. Geeft U een iteunummer oP 
dan volgt als het een nunmeriek item is de vraag HOOG->LAAG J/N, 
Hiermee kunt U dus opgeven of U dalende of stijgende volgorde 
wilt hebben. 

Alfanumerieke items werden altijd op ASCIl-waarde gesorteerd dus 
van A-Z, 

Boor de keuze van het sorteeralgoritse (bybblesort) wordt 

de voride sortering zo lans mogelijk sehandheafd. Dus 
ondersarterinden zijn mogelijk, Heeft U bijvoorbeeld een 
bestand wet namen en plaatsen en wilt U een lijst gesorteerd oP 
naam maar van alle JANSSENS de plaatsnamen ook sesorteerd: dan 
sorteerd U eerst op plaats en daarna oP naam. 
Tijdens het sorteren verschijnen getallen or het scherm, 
Hiersan ziet U hoeveel records er nos gesorteerd moeten worden. 
Het prograana heeft direct door als er niets meer te sorteren 
valt. 


47 …_MERGEN 


Met MERGEN krijat U te maken als U met zeer drote bestanden 
daat werken. Er zijn modelijkheden om het bestand in gedeeltes 
te srlitsen: of ook omsekeerd bestanden met elkaar te 
combineren. 

Een bestand bestaat uit een RECORD-file en een ASCIl-file. Als 
U saat amersen is het nuttis om eerst het ASCII-file te saven. 
Daarna kunt U het RECORD-file of een gedeelte ervan saven. 

Nadat het aantal records is getoond en sgevraasd maar SAVE of 
LUAD wordt naar REC of ASCII-file gevraagd. Als U kiest voor 
REC file wordt vervolgd met VANAF RECNR 7, U seeft nu or vanaf 
welk recordnunmmer U naar de band wilt hebben. Bit andeelte 
wordt daarna vit het bestand verwijderd en U kunt nu weer nieuwe 
records intypen. Het ASCII-file wordt ru weer mogelijk groter 
waar blijft toerasbaar voor de oudere records. 

Het is ook mogelijk om een recordfile dat U eerder or band hebt 
Senersged bij een actueel recordfile bij te laden. Als U bedenkt 
dat het ASCII-file achter het recordfile liat zal het duidelijk 
zijn dat dit overschreven kan worden. Het Prasraama stort dar 
met ASCIIFILE», U start INFOMASTER weer en dan kiest U MERGE en 
U laadt het eerder gesaved ASCII-file. Dit wordt nu sutomstisch 
op de goede plaats gelegd. En nu kunt U weer verder met het 
door U sanensestelde bestand, 
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4,8 OVERZIEKHT 


Bij het overzicht krijst U het volgende te zien & 
t. Symbolische itennamen met itensoort, 
2, Omvang totaal detabestand. 
3. Omvans ven het recordsdedeelte hieruit, 
4, Omvang van het ASCII-gedeelte hieruit, 
5e Het aantal records dat in het bestand eanwezig is, 
5,0 CASSETTE-ARCHIEF ALS VOORBEELD 


Ter illustratie volat hieronder een voorbeeld vern een 
Data-Kase gecreeerd met behule van INFOMASTER. 

























> RUN 
IN FOHASTER 

I=EERSTE OPSTART 2=LOAD 1,2,0F 4 BYTES — 

J= SAVE &= UPDATE OF 2BYTES HEXGETALLEN <-1) 

S= PRIN TEN 6= SORTEREN C1/2/A/- 1) 72 

T=M ERG EN 8=0VERZICHT | ITE4 4 = START (N/A) IN 

KEUS? 1 


1,2,0F à BYTES - 

OF 2BYTES HEXGETALLEN C-1) 
C1/2/4/- 1) Tel 

ITB4 5 = EIND (N/A) 2N 


AANTAL ITEMS?9 


NAAM 

1TE1 1?NAAM 
ITEM 2? BAND 
ITEM 3? TELLER 
ITEM 4? START 
LTE S5?EIND 
1TE1 6? EXEC 
1TE{ 7? SOORT 
1TE1 8? CAS 
ITE1 9? CATUM 


1,2,0F & BYTES - 

OF 2BYTES HEXGETALLEN C-1) 
Ci/2/A/= 1} Tel 

ITEM 6 = EXEC (4/A) ?N 


3,2,0F 4 BYTES - 

OF 2BYTES HEXGETALLEN C-1) 
CI/2/A/- 1) Pet 

ITEM 7 z SOORT (N/A) ?A 
ITEM 8 = CAS (N/A) Ta 
ITEM 9 =s DATUM (N/A) IN 


NUMERIEK 
OF ALFAUUMERIEK (N/A) 


ITE! 1 = NAAM CI/A) PA 


ITE1 2 = BAND (N/A) ?N 1,2,0F à BYTES - 


OF 2BYTES HEXGETALLES C-{) 


1.2:0F 4 BYTES « SM@/ar-D za 


OF 2BYTES HEXGETALLEN <- 1) 
CI/2rur- ID 22 
ITEM 3 2 TELLER (N/A) IN 
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KOPTEKST? CASSETTEARCKIEF 


DATUM? 4-5-53 LTEIB= FLR INT*2 
LTE I=NAAA ASCII 

KEUS? 1 TEM2= BAND INT*2 
1TEM 3e TELLER INT*2 
1TEM4= START HEXe2 
1TEM 5x EIND HEX*2 

IN FOMASTER 1 TE16=EXEC HEX*2 

I=EERSTE OPSTART 2LOAD 1 TE47= SOORT ASCII 

I= SAVE A= UPDATE 1 TEM8= CAS ASCII 

S=PRINTEN 6=SORTEREN | 1TE9=DATUM INT«4 

T=i ERGEN B=O VERZICHT 

KEUS? 4 DATABESTAND 2908 -2A86 
RECORDS 2IA2 -29E4 

RECNR? 1 ASCIIFILE 2A92 -2A86 
AANTALRECORDS 3 

RECORD 1 

1 NAAM _ ?INFOMASTER KEUS? 5 

2 BAND @?2g2 

3 TELLER 9168 PRINTAENU 

à START 078208 ls PRINT 

S EIND @?9FA5 22WYZIGEI KOP 

6 EXEC 9784 J=PRINTER SETTING 

7 SOORT ?APP AsHOE ITEMS PRINTEN 

B CAS __7V3 S=0MKEER RESET 

9 DATUM 07839614 G=OKKEREN BY PRINTEN 

. 72 SELEKTEREN 

RECNR?N EW B6=GEEN SELEKTIE 

NIEUW RECORD 2 UW KEUS? a 

1 NAAM 2 DATPROC 

2 BAD ?) [) ER 

3 TELLER 22 1TEMsJ 1 

& START 72809 SUBKOP=J 7? 

S EIND ?3C@Q LINKS PRINTEN=J ? 

6 EXEC 729 NULLEN ONDERDRUKKENeN ?J 

7 SOORT 7) PRINTBREEDTEs 4? 

B CAS 21 Mi 

9 CATUM 2830619 

NIEUU RECORD 3 1 NAAM 

Ll NAAT 7 SOURCEMAKER ITEAaJ 7 

2 BAND ? 291 SUBKOPaJ ? 

3 TELLER 22 LINKS PRINTEV=J ? 

A START 74049 PRINTBREEDTE“ 9 74 

5 EIND ?5098 

6 EXEC 742 2 BAND 

7 SOORT ?SYSTE1 ITE{=J 2 

8 CAS 71 SUBKOPaJ ? 

9 DAT 2832613 LINKS PRINTElsJ ?N 


NULLEN ONDERDRUKKEN=|} ?J 
NIEUW RECOPD 4 PRINTBREEDTE= 975 


1 NAAM ? DELREC 


RECNR? + 





KEUS? 8 
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3 TELLER 
ITMeJ 2? 
SUBKOP=J 7 
LINKS PRINTENaJ IN 
NULLEN ONDERDRUKKESaN ?J 
PRINTBREEDTE= 927 


a START 
ITE4=J 2 
SUBKOPaJ 7? 
LINKS PRINTElag ?N 
NULLENS ONDERDRUKKENEN ?J 
PRINTBREEDTE: 9 76 


5 EIND 
ITEaJ ? 
SUBKOPsJ ? 
LINKS PRINTEN=J ?N 
NULLEN ONDERDPUKKEN= ?J 
PRINTBREEDTE= 9 76 


6 EXEC 
ITEtaJ 7 
SUBKOPsJ 7 
LINKS PRINTEN=J ?N 
NULLEN ONDERDRUKKEV=N 











8 
ITEfzJ 2 

SUBKOP=J 2 

LINKS PRINTEN=J ?N 
PRINTBREEDTE= 9 25 


EAS 


9 DATUM 
ITEad ? 
SUBKOPaJ ? 
LINKS PRINTEN=J ?N 
NULLEN ONDERDRUKKEN=N 2 
PRINTBREEDTE= 927 


UW KEUS? H 


PRINTMENU 

La PRINT 

2e WYZIGEN KOP 
JaxPRINTER SETTIJG 
&HOE ITEMS PRINTEN 
S*OMKEER RESET 
GeOMKEREN BY PRINTEN 
Ta SEL EKTEREN 

SaGEEN SELEKTIE 


PRINTBREEDTEs 9 76 
UW KEUS? 3 
7 SOORT PRINTERsN 79 
ITMaJ ? KOPeN 7 
SUBKOP=J ? PAG NRsN ?J 
SHNKS PRINTEN=J IN DATUI=N 29 
PRINTBREEDTE= 9 27 
UV KEUS? 1 
VANAF PAGNR? 
4-8-83 . PAG 
CASSETTEARCHI EF 
waonsnauunternn 
BNR NAA BAND TELLER START EIND EXEC SOORT CAS DATUM 
t__ INFOHASTER 202 69 8288 9FAS 84 APP _ V3 839614 
2 _DATPROC 292 2 2808 3Can 2e APP Va S3u61g 
3 SOUPCHIAKEN Pet 2 UBI 8:05 A2 SYSTEM V3 830613 
UW KEUS? 
KEUS? 
IN FOMASTER 
Is EERSTE OPSTART 2=LOAD 
Je SAVE Ax UPDATEN 
S= PRIN TEN 6 SORTEREN 
T2MERGEN 820 VERZICHT 


KEUS? 6& 
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PRINTMENU 
1= PRINT ITEM Gs RNR INT*2 
BaWYZIGEN KOP LTE IaNAAM ASCII 
3=PRINTER SETTING 1 TEM 2= BAND INT«2 
A=HOE ITEMS PRINTEN 1 TEM 3= TELLER IT 2 
S=2OMKEER RESET 1TEMá= START HEX+2 
6=OMKEREN BY PRINTEN 1TEM5=EIND HEX*2 
72 SELEKTEREN ITEM6= EXEC HEX*2 
B=GEEN SELEKTIE ITE 7=S0ORT ASCI1 
1TEM3=CAS ASCII 
ke 
ve KEUS GD Nm 
VANAF P ? SORT NR 21 
3 2 
KEUS? 5 
4-8-83 
CASSETTEARCHI EF 
aaonzuazaaarzen 
GESORTEERD OP NAAM 
ENR NAAM BAND TELLER START EIND EXEC SO9JRT CAS DATU 
2 __DATPROC 202 2 2809 3Ca9 29 APP __ V3 830610 
1 INFOMASTER 202 68 8228 9FA5 84 APP _ VJ 830614 
3 _ SOURCELAKER ea: 2 4289 SEB A2 SYSTEM _vV3 838613 
UW KEUS? H 
PRIN TM ENU UW KEUS? 7 
1=PRINT 
2=2WYZIGEN KOP ITE1G= ANR INT*2 
3=PRINTER SETTING ETEAl=NAAM ASCII 
A=HOE ITEMS PRINTEN 1 TEM2= BAND INT*2 
S=OMKEER RESET ITEM 3= TELL ER INT«a 
6=OMKEREN BY PRINTEN 1TEM4=START HEX*2 
12 SELEKTEREN ITEMS=EIND HEX*2 
B=GEEN SELEKTIE 1TEM6= EXEC HEX*2 
1TE17= SOORT ASCII 
1 TE18=CAS ASCII 
ITE19= DATUM IN T&4 
SELECTIE OP NR?7 
Uw KEUS? 1 VAN ?2APP 
VANAF PAGNR? 
TOT 2APP 
4-8-83 PAG 
CASSETTEARCHIEF 
saasnsaozseneen 
GESORTEERD OP NAAM 
SOORT VAN APP TOT APP 
ENR NAAM BAND TELLER START EIND EXEC SOORT CAS DATUM 
2 _DATPROC 202 2 2802 3C90 29 APP __ V3 830610 
1 INFOMASTER 28e 69 8202 9FAS BA APP V4 B326ta 


INFO-MASTER 
UW KEUS? 


KEUS? 4 
RECNR? H 


t NEW RENUM LOCX LX @X 
OF 'N GETAL<=3 
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KEUS? à 
REONR? | 


RECORD 1 





X=ITEMIR<=29 Ì NAAM INFOMASTER?H 
RECNR? 2 
1 4 1 N QX DELREC 
RECORD 2 1 NAA INFOMASTER?/ 
Ì NAAM DATPROC? 
2 BAND 262? RECORD 3 
3 TELLER 2708 1 NAAX SOURCEMAKER?t 
8 CAS V3r03 
3 TELLER 22: RECN R? REN UM 
RECYR? QI KEUS? 5 
RECNR? 2 PRINTMENU 
I= PRINT 
RECORD 2 2eWYZIGEN KOP 
Et NAA DATPROC? J=PRINTER SETTING 
AzHOE ITENS PRINTEN 
RECORD 1 SaOMKEER RESET 
1 NAAM INFOMASTER? 6G20MKEREN BY PRINTEN 
Te SEL EKTEREN 
RECORD 3 8=GEEN SELEKTIE 
1 NAAM SOURCEMAKER? , 
UW KEUS? 1 
RECN A? VANAF PAGNR? 
4-8-83 PAG 
CASSETTEARCHI EF 
meaemansnasorss 
GESORTEERD OP NAAM 
SOORT VAV APP TOT APP 
RNR NAAM BAND TELLER START. EIND EXEC SOORT CAS DATUM 
1 DATPROC 202 2 2800 3Cce9 29 APP __ V3 832619 
2 INFOMASTER 282 68 8208 9FAS 84 APP v3 838614 
Uw KEUS?8 
UW KEUS? 1 
VANAF PAGNR? 
4-8-83 PaG 
CASSETTEARCHI EF 
GESORTEERD OP NAAM maaaanaatanases 
RNR NAAM BAND TELLER START EIND EXEC SOORT CAS DATUM 
1 __ CATPROC 292 2 2809 3cag 29 APP _ V3 830618 
2 _ _INFOMASTER 202 68 8292 9FA5 Ba APP _ VJ 839614 
3 _ SOURCEMAKER 281 2 Agee 5098 A2 SYSTEA VA 836613 
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UW KEUS? 4 


8 INR 
ITEMeJ 201 


ï NAAM 
ITEM=J 7Q2 


2 „BAND 
ITEMleJ 703 


3 … TELLER 
ITEfaJ IN 


ä START 
ITElaJ ?N 


5 EIND 
ITEMfsJ IN 


4-8-8683 


GESORTEERD OP NAAM 


RNR NAAM BAND 
ï DAT PROC 202 
2 INFOMASTER 2g2 
3 50 URCETAKER 281 
UW KEUS? 1 


VANAF PAGNR? 


4-8-8583 


GESORTEERD OP NAAM 
RNR BAND NAAM 
ï 282 DATPROC 
2 282 INFOMASTER 
3 201 SOURCESAKER 


UW KEUS? 
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6 EXEC 
ITElaJ IN, 


7 SOORT 
ITEfaJ IN 


8 CA5 
ITEeJ ?N 


9 DATUM 
ITMMsJ ?N 


UW KEUS?! 
VANAF PAGNR? 


PAG 1 
CASSETTEARCHI EF 
maznzsansuansen 
UW KEUS? 6 
1 TEMG= RNR INT#2 
1 TEM IzNAAM ASCII 
1TE12x BAND INT*2 
1TE43a TELLER INT«2 
TTEM4=START HEX«2 
ITEAS=EIND HEX«2 
1TE16=EXEC HEX*2 
ITEM?2S0ORT ASCII 
ITEM82CAS ASCII 
IT TEM9a DATUM. INT*4 
BE KOLOM 2. RR 
DIT WORDT NR? 
TE KOLOM = NAA 
DIT WORDT NR? 2 
2E KOLOM = BAND 
DIT WORDT NR? 1 
JE KOLOM = TELLER 
DIT WORDT NR?r 
PAG ij 


CASSETTEARCKIEF 
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2.2 Forth Applicatie, 

Yoor de lezers onder u die Atom FORTH in hun bezit hebben, biedt deze 
applicatie enkele extra mogelijkheden t.o.v, de MC-routines uit het 

vorige hoofdstuk. Forth leent zich goed voor toepassingen als besturingen 
van bv, een PSG, het heeft de mogelijkheid met gedefinieerde woorden een 
complex van routines aan te roepen, Zo zal in deze applicatie uiteindelijk 
één woord gedefinieerd worden waarmee alle registerfuncties van de 

PSC aangesproken kunnen worden, zl, het woord MCTD". 

Ik ga er overigens van uit dat de PORTE bezitters ook op de hoogte sijn 
van de werking van FORTH, zodat hieronder slechts een opsomming volgt 

van de woord-definities, 

Voordat da FORTH woorden gedefinieerd kunnen worden, moeten eerst weer 
een aantal basisroutines ge-"creeërd" worden (nl, om data in de registers 
te schrijven of ult de registers te lezen). 


Deze routines zijn als volgt: 


(write data to register): 


IDA@ 112 initíeer voor ontvangen van registerur. 

STA { B&H zet 112 op poort B 

LDA P,X zet topwaarde van stack op poort A (reg.nr) 
STA # B821 

LDA @ 96 zet 96 op poort B, ínitieer voor ontvangen van 
STA f B&O data 

LDA 2,X zet voorlaatste waarde van stack op poort 4 
STA f B801 (registerinhoud) 

IDA @ 64 zet 64 op poort B (Standby) 

STA / BEZ 

JMP NEXT ga naar volgend woord 


Deze routine verwacht op de FORTE stack een registernwaner boven een 
registerinhoud, 


(read data from register): 


IDA @ 112 initieer voor ontvangen van registernr. 

STA / B800 zet 112 op poort B 

LDA BX zet topwaarde van stack op poort A (regenr.) 
STA f B8Ĳ1 

LDA (@ 89 zet 8@ op poort B, zet BCI,BC2 en BDIR voor 
STA f B8UD lezen van register 

LDA @ 2 maak poort A input 

STA Á 5803 

EDA f BS991 Jees de byte op poort A in accummlator 

STA DX zet accumlator op stack (top) 

LDA @ 64 zet 64 op poort B (standby) 

STA ú B820 

IDA @ ÁFF maak poort A weer output 

STA # 3843 

JMP MEXT ga naar volgend woord 


Deze routine verwacht boven op de stack een registernummer en geeft de 
inhoud van dat register terug op de atack (top), op de plaats waar het 
registernummer stond. 
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(initialise porta) OE 


LDA @ AFP maak poort A output 

STA f 8605 

IDA f PO zaak (1/2) poort B output 
STA # BĲA2 

JMP NEXT ga naar volgend woord 


Deze routine inítfalissert de poorten van de VIA, 
De drie genoemde routines kozen in de vorm van een CREATE in de FORTH 
applicatie, 


Laad FORTH en typ de volgende definities ín ( wanneer men de applicatie 
op tape wil zetten laad dan eerst de editor )s 


„HEX 8202 DP ! 
8200 PENCE ! 
CREATE SEP FFA9 , SD C, B&23 , PAAY , ED C, B8I2 , 4É C, 2642 , 


085 „GDC, BEUL , 
Be. 8D C, B58 
HK » Ba0 7 


, 
… 

áD C, B801 ®, 8D CG 

DS’ Pen os E80 3 4010, "z6d2 1 


SMUDGE 
CREATE VREG 

7oa9 , ED C, BE , LABS , EDC, BAN , 
6oa9 „EDC, BEB , G2B5 , ED C, BEU , 
4049 „EDC, BED , AC C, 2842 , 
SMUDGE 

DECIMAL 


+ WRREG WEEG ZDROP ; 


: RESET SEP 14 # DO f 1 WRREG LOOP 255 7 WRREG ; 
::READ CR 16 J DO „” REGs * I DUP , RROG „ CR LOOP ; 
+ BVL 7 RREG 1 - 7 WRENG 5 

s EV2 7 RREG 2 - 7 WRREG ; 

1 EV3 7 BRE: 4 - 7 WRREG 5; 

z EVA 7 RREG 32 - 7 WRREG j 

z PREL 256 MOD 1 WRREG f WRREG 5 

* PRR2 256 /MOD 5 WRREG 2 WRREG ; 

3 FRE3 256 /MOD 5 WEREG 4 WRRIG 5 

: FREN 6 WRREG 3 

1 AMP1 6 WRREG ; 

3 AMP2 9 WEREG 4 

: AMP3 10 WRREG ; 

z WAIT 8 sx d DO LOOP 3 

t BPIM 256 /MQD 12 WRREG 11 WRRSC ; 
sDV1 7 ERG 1 + 7 WRREG 3 

vDV2 7 RR 2 + 7 WRRIG $ 

sDV5 7 ARE 4 + T WRREG 3 

3DV4 7 nA 32 + 7 WRREG 4 

: AFT DUP 4 « KTIM.13 13 WRROG WAIT 4 
z REL DUP 4 a STIM 1 13 WRRIG WAIT ; 
t ADR SWAP RCT AIT WAIT REL 

t OFI © @ AMP1 PREL DV1 3 

s OP2 6 9 AMP2 PRE2 DV2 ; 

t OP3 @  AMP3 PRE3 DV3 $ 
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Feit, 
bere. 
opge: 
ande: 
De wv, 


OF4 ® 2 AMPS PREN DV4 ; 

Sl EV FREL AMP) STIM DUP 16 = IP DROP ADR OF1 ELSE 13 WRREC 
DUP @ > IF WAIT OF1 ELSE DROP THEN THEN ; 

S2 EV2 FRE2 AMP2 ETIM DUP 16 = IF DROP ADR CF2 ELSE 13 WRARG 
DUP @> IF WAIT OP2 RLSE DROP THEN THEN ; 

S5 EV3 FRE3 AMPS ETIM DUP 16 = IF DROP ADR OF3 ELSE 13 WRREG 
DUP B > IF WAIT OF3 ELSE DROP THEN THEN ; 

S4 KVA FREN AMP3 RIIM DUP 16 = IP DROP ADR OP4 ELSE 15 WRREG 
DUP 0 > IP WAIT OF4 ELSE DROP THEN TEEN ; 

T3 DUP 3 = IF DROP S3 ELSE DROP S4 THEN ; 

T2 DUP 2 « IF DROP S2 ELSE T3 THEN ; 

SOUND DUP 1 « IF DROP TÌ ELSE T2 THEN CR ,” DONE " CR ; 


elijk is het FORTH woord SOUND het woord waar alle effecten mee 
1kt kunnen worden. Echter is de manier van definiëren 30 

zet, dat ook alle andere woorden gebruikt kunnen worden om op 
re wijze complexe geluidseffecten te creëeren, 

erklaring van de verschillende woorden Îs: 


HRRDG write data in register 


RESET reset alle registers 

READ geef een dump van alle registerinhouden 

BVL enable "voice" op kanaal A 

Ev2 enable "voice" op kanaal B 

Ev3 enable “voice” op kanaal C 

BV4 enable "noise" (ruis) op kanaal C 

FREL verander de toonhoogte voice A 

FRE2 verander de toonhoogte voice B 

FRE3 verander de toonhoogt voice GC 

PREN verander de ruis-grondfrequentie 

AMP1 verander de amplitude kanaal A 

AMPa verander de amplitude kanaal B 

AMP3 verander de anplitude kanaal C 

WAIT geeft sen pauze van n maal 2,0pt aeconden (n op stack) 
ETIK verander de envelope timing waarde 

Dvì disable voice op kanaal A 

Dv2 disable voice op kanaal B 

Dy3 disable voice op kanaal C 

Dv4 disable noise op kanaal C 

ATT geef een attack (gebruikt in ADR) 

REL geef een release (gebruikt in ADR) 

ADE ATTACK -DELAY- , een(vartable}ADR karakteristiek 
oF voice A uit 

ope voice B uit 

oFr3 voice C uit 

oP4 noise C uit 

sl sound op kanaal 4 (voice 

s2 sound op Yanaal B (voice 

s3 sound op kanaal C (voice 

S4 sound op kanaal C (noise 

Tj test of kanaal C (voice) of kanaal C (noise) 
T2 test of kanaal B (voice) of T5 

SOUD forth woord voor klankopwekking (beschrijving zie onder) 


Over het algemeen lijkt dit dus op hetgeen wat in de MC-routines wordt 
toegepast, de opbouw van een klank is onder te verdelen in een aantal 
basisfuncties. 


PAG. 28 | ACORN NIEUWS SDUNDBORD VOOR DE ATOM E. J. SNELDER 


Het woord "SOUND" kan op twee manieren gebruikt worden, in het eerste 
geval worden 6 parameters op de stack verwacht, in het tweede geval 
worden 8 parameters op de stack verwacht: 7 





top of stack 





envelope shape envelope shape 


duration 





Mogelijkheid 1 


delay time 
attack time 


Mogelijkheid 2 | 


De keuze tussen mogelijkheid 1 of mogelijkheid 2 kan gemaakt worden door 

de envelope shape anders te kiezen (van Ô-15 gaat PORTH uit van mogelijkheid 
l en bij het invullen van 16 voor de envelope shape gaat FORTH uit van 

de 2e mogelijkheid.). 
Het gebruik is als volgt: 


channel no, 
pitch 


amplitude 


Envelope timing 


Envelope shape 


Duration 


Attack 


Delay 


Release 


luvoice A, 2=voice B, Javoice C, 4mnoise C 

(kleiner dan @ of groter dan 4 is ook noise C) 

een getal tussen D en 4295 voor voloes 

een getal tussen @ en 3l voor noise 

een getal tussen Z en 15 ís normaal volume-niveau 

(Ge kanaal uit) 

16 geeft envelope sturing van de amplitude van het kanaal. 
(d.i. de envelope timing waarde in Rll en Rl2) 

indien anplitude kleiner dan 16, geef dan 9. 

een getal tussen O en 15 (de normale envelope 

Er ermen volgens de tabel, d,w.z, de inhoud van 

RL3 

indien 16 als envelope shape, dan gaat FORTH utt van 
de parameters voor een ADR karakteristiek 

alleen voor envel.ve=shapes kleiner dan 16, tijdsduur 
in eenheden van 0,001 s (l ma) x 
indien de waarde P wordt ingegeven blijft het kanaal 
continue open . N 

alleen voor envelope shape =16, geeft een Attack fase 
(als onderdeel van een ADR karakteristiek) in eenheden 
van @,001 s. 

idem als attack, echter werkt als sustain (op maximaal 
amplitudeniveau), in eenheden van 0,201 s 

iden ala attack, echter geeft een release fase in de 
ADR karakteristiek, eenheden in 0,201 s, 
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Enkele voorbeelden van het gebruik van SOUND: 
(de parameters komen natuurlijk ín omgekeerde volgorde te staan): 


RESET 
@oe10 156 3 SOUND 
D0gI10151 2 SOMD 


READ 

(aa enige tijà:)RSSET 

100 1620 900 16 9 16 209 1 SOU 
READ 


Is het duidelijk hoe het werkt? probeer ook eens: 


RESET 
5208 B 3ND 16 159 1 SOUND (READ) 
RESET 
2500 19 509 16 15 4 SOUND (READ) 
RESET 


Er zijn wel enigs restricties verbonden aan het gebruik van SOUND: 

— gedurende de uitvoering van een SOUND is het niet mogelijk andere 
SOUXD-s te programmeren, tenzij natuurlijk een continue klank ís 
geprogrammeerd. 

— men moet er rekening mee houden dat verschillende vormen van SOUND de 
registers met een andere inhoud achterlaten dan waarmee gestart werd 
{b.v. het enable register RJ), wanneer dan een nieuwe SOUND volgt kunnen 
onverwachte effecten optreden. Overigens is dit in de meeste gevallen 
geen probleem, 


YJanzelfsprekend kunnen naast SOUND andere woorden gedefinieerd worden 
om bijvoorbeeld meerdere kanalen met één SOUND aan te spreken, 

zoals gezegd kunnen alle andere woorden uit de applicatie ook gebruikt 
worden voor het opwekken van klanken, b.v: 


Beoar 190 161 FRE FRE2 EV1 EV2 16 16 AMPL AMP2 508 ETIM 8 13 WRRIG 
READ 
RESET) 


Maar ook nieuwe definities: 


1 HOISES EV4 18 AMPS 30D B DO I FREN 20 WAIP LOOP OP4 ; 
+ KEYB EVL 16 AMP] 1000 BPIM BEGIN KBY ?ESC 2 z FRE 1 13 WRREG UNTIL 4 


(KEYB wacht op een toets en laat een toon horen met een frequentie 
2 de ascii waarde van de toets) 


4, En nu? 


In àit artikel zijn u een aantal mogelijkheden van de PSG (AY-3-8916) 
aangegeven, de software is slechts bedoeld om een indruk te geven van 
wat zoal mogelijk ís, Ik kan mij echter voorstellen dat de kwaliteit 
van het geluidseffect of de muzikale kwaliteiten van de PSG volledig 
afhangen van de kwaliteit van de software, De PSG is ín elk geval 
aardig te gebruiken in spelletjes (geluidseffecten) en daarvoor is 

een stukje software zoals beschreven onder 3.1 (MC routines) al redelijk 
geschikt „ 
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Toch is de Atom SOUMDBOARD ook geschikt voor meer serteuse toepassingen. 
Een aantal software-ideeën zijn bijvoorbeeld: 


= een basic ruziek-editor, d,w.z. een programma waarmee stukken muziek 
gecomponeerd kunnen worden (dus invoeren, corrigeren en controleren). 
Ik zelf heb reeds een dergelijk progranma geschreven (is wel ca. 14 Kbyte) 
waarbij de muziek in de vorm van normale notatie ingevoerd kan worden 
(toon en oktaaf), waarbij tonen tusseugevoegd en verwijderd kunnen worden. 
Zo'n programma vereist wel ingewikkelder software dan die welke in dit 
artikel is beschreven, zo zal je het programnagedeelte, waarbij de 
muziek gespeeld wordt, zgn. “realtime” moeten maken, omdat je anders 
alleen maar tonen krijgt, welke op hetzelfde moment inzetten of eindigen. 
(Met "realtime" bedoel ik dan dat je dus de mogelijkheid hebt de ärie 
oscillators volledig onafhankelijk “te gebruiken, dus cok op elk 
gewenst tijdstip een toon starten of beëindigen), In de praktijk 
zal daarom zo'n programma lang niet eenvoudig zijn. 

= een "rhytme-box”, m‚bev, de ruisgenerator en m.b.v, één of twee 
extra oscillators kan men een erg goede rhytmebox “maken”, 
Hiertoe kan men een aantal subroutines maken, welke ín een voorafbe- 
paalde timing een ruiseffect laten horen (dus voor een cymbal een 
korte RELEASR (dua bev, RI3=O) en een ruis. met veel 
hoge frequenties, voor een slag op de “snaredrum” ook een zeer korte 
RELEASE en ruis met hoge frequenties, maar dan gecombineerd met een 
oscillator welke op een lagexe frequentie is ingesteld). 
Zo kan voor elk gewenst instrument, maar ook voor elk gewenst onderdeel 
van een rhytme-combinatie, een aparte subroutine geschreven worden welke het 
gewenste effect geeft, Door nu een centraal programma de verschillende 
subroutines aan te roepen (in een variabele volgorde en natuurlijk een 
variabele snelheid) kan men een goede imitatie van een rhytmebox verkrijgen. 
Aarùiger wordt bet, wanneer je een geprogranmeerde rhytae regelmatig 
afwisselt met bijvoorbeeld een “roffel" (een serie korte slagen op de 
snare-drum) of sen slag op een cymbal (een langgerekte ruis), enfin 
de mogelijkheden zijn legio, 


Een aantal hardvare-mogelijkheden wil ik ook graag noemen: 


= het PSG uitgangssignaal 1s nog lang niet zo mooi als'dat van de 
moderne synthesizers, echter kan men met extra electroniea heel veel 
doen, Er zijn reeds schema's om een zogenaamde VCP achter de PSG 
te schakelen, Een VCP is een Voltage Controlled Filter, d.w.z, een 
spanningsgestuurd filter, Door zo'n filter met een afzonderlijk envelope 
generator te sturen, kan men muziekinstrumenten redelijk goed nabootsen, 
(Zoals wellicht bekend, kan men met een goed filter de golfvorm van 
de oscillator zeer aterk beïnvloeden). In de zeer moderne synthesizers 
werkt men overigens met digitale klankopwekking, d.w.z. dat men 
de uitgangs-golfvorm al volledig kan vaststellen (en naar wens nog kan 
beïnvloeden met een analoog filter). De digitale golfvormen kunnen dan 
in geheugens worden vastgelegd, op deze wijze ontataan zogenaamde 
wave-tables, waaruit zeer ane! een golfvorm gekozen kan worden, 
In de literatuuropgave neen ik een tweetal artikelen welke over zowel 
digitale klankopwekking gaan als over het koppelen van een filter aan 
de PSG('s). (Dez, de artikelen uit Computing Today). 

= vanzelfsprekend kan men meerdere PSG's aan de Atom koppelen, tenslotte 
is de beschikking over twee nieuwe 8-bits poorten gekomen, waarmee 
betrekkelijk eenvoudig een tweede PSG bestuurd kan worden, Hierdoor krijgt 
men dus 6 oscillators, twee onafhankelijke envelope generators, eto. 

= wanneer men echt serieus verder wil gaan met de PSG, dan is een combinatie 
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van meerdere PSG's, t extra randelectronica (by, VCP's en 
benvelope" Followers (dat zijn stukjes electronica welke een signaal 


afgeven afhankelijk van de envelope van het uitgangssignaal van de 

PSG, met zo'n envelope follower kun je dus de VCP weer sturen)) 

en een toetsenbord al een volledige computergestuurde syntheafzer, 
Natuurlijk zal men dan het s‚e.a. zelf moeten ontwikkelen 

(bijvoorbeeld de electronica om het toetsenbord aan de atom te koppelen). 


Het vervolg op dit verhaal laat ik graag aan uw eigen fantasie over. 


5e Literatuuropgave. 


= Preliminary Information on the AY-5-8919, General Instruments 
(kan aangevraagd worden bij de chip). 

= Sound out of the Atom, uit Acorn User, mumner onbekend, 

= Uitbreiding van de speelcouputer, Elektuur september 1963, 
blda, 38-44. 

= Mozart Lives, Your Computer (Dice Waltz on the spectrum), 
vol.5 nr.3, bldz. 55-61. 

= Miero Music, uit Computing Today, November 1982, bldz.45-48, 

= Micro Musie (p2), uit Computing Today,description of Micraulos on 
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Het raadsei van biz 85 in de vorise Acorn Nieuws is op selost. De 
veranderinsen op #C290,#C220....enz. (die oversens ook op 
«COD. KCDAO... enz kunnen voorkomen) worden veroorzaakt door een 
kleine onvolkomenheid in de JOS-box. 
Ik zal bij het besin besinnens 
Het uitvoeradres van GRMOD is: #AEOG. Als je dat met de 
STEP-commando ui de JOS-box volat (kan alleen als GRMDD reeds is 
inseschakeld) zul je zien dat hier alleen de schrijf en 
leesvectoren worden veranderd in #ADEE en #AD7E. Hierna wordt de 
accu seladen met waarde #C (=$i2escherm schoon) en wordt de 
processor via JSR #FFF4 naar de nieuwe Schrijf routine sestuurd. Zie 
voor deze schrijf=-routine STEP-tijst 1. 
Eerst worden daar de normale zaken afgehandeld zoals: Kijken af accu 
Zot 3 is, (= Kijken of Printer aan of vit moet) opslag van alle 
resisters in de stack: kijken of scherm aan moet -$E-, scherm uit 
moet =$#15- en kijken of scherm al uit staat. 
Dan volst JSR #ACE7., Deze routine “EXOR't“ ge cursof op huidise 
plaats met ?WELl, In deze routine wordt naar subroutine #ADSB 
sespronsen, welke het huidise adres van de Cursor, of nos exacter: 
het bovenste streegie van de cursor uitrekent, En in deze routine 
komt de fout aan het licht, 
Het adrs wordt berekend vit de inhoud van #E@ en #DF. Bi 
inschakelen van GRMOD staat echter in #DF nos het hose byte van het 
Oude adres van de cursor in TXMOD (normaat dus), Dit kan #BB of HEL 
Zijn. Bij reeds inseschakeide GRMOD staat in #DF het reselnummer van 
de cursor (@ t/m 15) en daar wordt keurig netjes het hose byte: van 
het adres, van he bovenste streepje van de cursor uit berekend. (#80 
t/m #96). 
Zie voorbeeld STEP-lijst 2, 
Bij eerste inschakeltins van GRMOD wordt dus vitsedaan van de (foute) 
waarde #88 af #81. Na bewerkins wordt dat &C@ of HCE, De vector op 
#SF en #ED wordt bij inschakelins van GRMOD in DIREKT-MODE #COEO of 
#C200, zie STEP-liijst 3. 
Dan vblat: LDACHSF),Y 

7 EOR #E1 (hierin staat nos #50. 

STACHSF) , Y 

Dit is dus de veranderins die je waarneemt in de interoreter. 
Resiater Y wordt nv sveeda met WEB verhooed en wanneer nodis 
wordt?#6B (hose byte cursor adres) met 1 verhoosed. files bij eikaar 
worden er voltsens mij 12 adresssen veranderd ( en seen 20). Dit is 
niet met STEP te controleren omdat STEP ze!t die seheusenplaaten ook 
Sebruikt @n veranderd. Tijdens het uitvoeren van scherm schoon, $12 
wordt #El met waarde #FF sevuid. 
Hiermede i5 het raadse! opselost naar het probleem noa niet. Een 
vris eenvoudiee en afdoende oplossing is een shake! bare 
wrive-protect op het C8Q8 blok (en eventueel op het H#A2GD en #DOED 
blok) aanbrensen en altiid opietten of deze inseschakeld iS bii 
averschaketen naar GRMOD. Je hebt dan tevens een soede beveiliging 
resen allerlei oOndeusdelijke software, Een lastise oplosstinf ist 
altijd het GRMOD commano voorat te laten saan doors ?#E1=00 (zie 
step-lijst 3), lastig want als ie het zen Keer vergeet zit je weer 
mer „en verminkteinterpreter. Een detinitseve Delessing ist zorsen 
dat de GRMOD routine (KAEOE) die VW at in KEI zet, Als je nv naar 
DISAS-lijst 1 kijkt zie je dat de laatste 4 bytes met @ sevuld zijn 
Deze worden volsens mij niet sebruikt en dus heb je hier maai de 
ruimte om ?#E1 te veranderen. Hoe ik deze aanpassing semaakt heb is 
te zien in DISAS-tijst 2, Eerst wordt het resister X met Î verhoosd 
en WOrdt dan @. Dan wordt deze @ in Het sezet: waarna de rest van de 
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normate routine volst. 

Je zou die ® ook in #DF kunnen zetten maar dat seeft problemen bij 
het volgen van dat stukje routine met de step in TXMOD ( omdat het 
zursor adres dan #0828 wordt) 

Dus lijkt HEI mij de beste oplossing, Na deze verandering heb ik 
a!le JOS-box statements sen voor een vitseprobeerd om te kontroieren 
of die lese bytes echt niet sebruikt worden, Alles liep perfect en 
er zijn seen fouten of vasttopers voorgekomen. Die lese bytes werden 
dus echt nos niet sebruikt. 


STEP-tiijst 4 semaakt in TXMOD, 
ADEE:JSR #FEFB 


AD7 1: PHP BC AB A4 20 FE 
AD72: PHA et BD BA 20 FD 
AD7 3: CLD DC AP Da 20 FD 
AD74&:ISTX #EG et 40 Za 20 FD 
AD7E:STY #ES GC GB A4 20 FD 


AD7BIJSR #ACBF AC BO 4 20 FB 
ACBF:CMP 9#&D6 vC BA D4 21 FB 
ACC1: BEG #AC4I GC AB B4 21 FR 
RECSSCMP ALS OC GA A AD FB 
ACCS: BEG #8C4A BC MV 4 AZ FB 
ACC7:LDY #EB oC 02 MP 22 FB 
ACCI: BME #ACAA ec 29 20 22 FR 
RECB:JSR #ACE7 ue a@ AU 22 FS 


ACE? : PHA ec a GP 22 F5 
ACEB: JSR #ADSB @C 29 DP 22 FE 
ADSB:LDA #EG ee 82 33 22 FE 
ADSD:ASL ue 20 AE 22 FE 
ADSE:STA #5F 2e 8 A7 22 FE 
ADEB: LDA #DF e1 00 O9 AD FE 
AD62: RSL 02 CA MD 21 FE 
ADEI:ADC #DF 84 20 99 AB FE 
ADES: SEC 86 GO AP AL FE 
ADEE : ROR C2 9 DU AA FE 
AD&7:STA #ED €209 DD AB FE 
ADES:ROR #5F C2 92 AU 22 FE 
ADGB:LDY A#00 C2 30 97 22 FE 
ADED: RTS CZ 00 DU 22 FB 
ACEB:LDX A#02 Cz 22 00 20 FS 
ACED:STY #DE Ce @2 9 29 FE 
ACEF:LDA C#S5F),Y B5 02 OD AZ FS 
ACF1:EOR #E1 35 02 97 29 FS 
ACF3:STA (#5F),Y 35 B2 DO 20 FB 
ACFS: TYA 9e 92 A7 22 FE 
ACFE: CLC aa e2 0 22 FE 
ACF7: RDC A20 2e a2 08 20 FB 
ACF9:TAY <20 02 28 20 FE 
ACFA:CPY #DE 20 92 20 20 FS 


ACFC:BNE #ACEF ze 02 20 20 FE 
ACEF:LDA C#5F),Y C2 B2 20 AQ FE 


STEPLIJST 2 in GRMOD. 
RCEB:JSR #ADSB BC BO 94 20 FD 


ADSB:LDA #E@ 8® BB O4 22 FD 
ADSD : ASL 0e BP M4 22 FD 
ADSE:STA #5F ae Be B4 22 FD 


ADE: LDA #DE BE BB 04 20 FD 
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AD62: ASL ec Bs M4 20 FD 
ADESIADE #DF 1á 23 24 20 FD 
ADES: SEC 14 88 B4 21 FD 
ADEE: ROR BA 20 84 AB FD 
AD67:STA #60 BA BO M4 AQ FD 
ADSS:ROR #5F ER DB BA 22 FD 
ADEB:LDY #00 BA Be BP 22 FD 
ADED: RTS SA 00 A9 22 FF 


STEPLIJST 3 in TXMOD. 
RACES: JSR #ADSB BC 20 B4 20 FD 


ADSB:LDA #ES ae BO A4 22 FD 
ADSD: RSL 2 20 O4 22 FD 
ADSE:STA #5F 8e Ue B4 22 FD 
ADEOILDA #DF 88 29 24 AB FD 
ADE 2: ASL 2e MO Bá 25 FD 
ADESEADC #DF 82 29 24 AB FD 
AD6S: SEC 82 89 BA Al FD 
ADEE: ROR C1 83 4 AB FD 
AD67:STA #EB Ci A8 B4 AD FD 
ADSS:ROR #5F Ct 38 DA 22 FD 
ADEB:LDY S#02 Ci 08 BO 22 FD 
ADED: RTS Ct 83 BA 22 FF 
ACEB:LDX 2402 C1 82 9 20 FF 
ACED:STY #DE C1 22 08 20 FF 
ACEF:LDA (#5F),Y 65 52 00 29 FF 
ACF1:EDR #E1 ES 02 0D AO FF 


ACFS:1STA (WSF).Y ES 82 BO AD FF 


DISAS-LIJST 1 orsinele JOS-BOX, 


REGE: AB M8 LDY 8#28 
AE@B: A2 235 LDX @#85 
REDA: B9 135 AF LDA #AF15: Y 
AED: 9D 8 Bz STA #8208, X 
RE18: 88 DEY 

AE1t: CA DEX 

AE12: 18 F6 BPL #AEBZA 
AElás A9 BC LDA @#BC 
AELE: 29 Fú FF JSR 4FFF4 
AE19: 4C AD FE JMP #FEAD 
AEIC: BB BRK 

RE1D: 23 BRK 

REIE: 08 BRK 

AE1F: GB BRK 
DISAS-LIJST 2 met de verander ins, 
REGE: AB De LDY a#28 
AEBS: A2 83 LDX 2#05 
REBA: BI 13 AF LDA #AF13, Y 
AEGD: SD OB B2 STA #0208, X 
AE19: 88 DEY 

AEtt: CA DEX 

RE12: 1 FE BPL #REOA 
AElá4: EB INX 

REIS: 86 EL STX #E1 
RE17: AS BC LDR S#GC 
AE19: 209 F4 FF JSR #FFF4 


AE1C: AC AD FE JMP #&FEGAD 
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Geachte hobbusenoten, 


Naar aanteidin9 vre artikel in BANE "23 blz.63, kan ik het volaende 





De ma x naar buiten brengen, heb ik al lang Seleden gedsan en tot 
valle tevredenheid, Alleen het zanstuiten van een jJosstick stuit oP 
een practisch Probleem: zandezien deze een JemeenschaPbelyke 
retourleiding CAND) heeft, 

GPplassins zen kunnen zun om alle schskelkontskten apart naar buiten t 
voeren. We hebben dan een tienaderiae ksbel nodig en dat is lastia er 
aseft. snel verwarrina met mat aan wat moet. 

Beter is het om de matix oP een Printije te maken en met, transistoren 
te schakelen. Gebruik hiervoor PHP's zilicium met de E. aan de B-Poor 
en dz f, aan de uitgansen van IC26. De basis komt aan een 
printpermetie waarop Ll straks het stekertje komende v/d Joystick 
prikt. De stick kan zo onsewsziad bisven en er zen maar wof 
stekert ies nodia om oP de dessewenste Pennen te Prikken. In serie met 
de f Wanen ved joystiek moeten wel weerstanden van Ca. 68kahm 
geschakeld worden, CNiet in de rekour! 

U hoeft watnurlyk niet de Sehele matrix vol met transistoren te 
zetten, doch alleen die Plaatsen welke U nodig denkt te hebben. 

Een klein schematie zal eea verder verduidelsken. Het is maar een 
klein deel w/d matrix, maar Seldt dus voor elke Plaats in de matrix. 











B Peemr 


+ 
ANNEN 
R=68 xt 


Sane | VAR joystick 
An 
t CE] -Lede les, 


verder naar blz.88 wan AM6 "EZ. 
GPRS scha elkaart werkt al heel lana met 1 defecte DEAC cel waarvan de 
hannind angawveer 1,2 Volt bedraaattt! 

ï het. Ee Ereh fende artikel zou dit niet kunen. Ik kan Ll echter 
en dat de KAART verfPent werkt, zelfs met nas lagere sPannins. 
de stoorsevoelizheid boensent, alhosuel man KAART Dok wat 
al heel wat op z'n kof heeft gehad, Veel te hoge sParnnins 
EEN Pius en min omdraszien enz. Alles bleef keurig en Foutloos in 

aeheuas 


le 26 
























dat U zich niek ennadis zoraen maakt. 


HARME_ UITBREIDEN FRANS VAN HOESEL 
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P-CHARME UITBREIDEN 


Zoals beschreven in de handleiding van P=Charme ie het nu zeer 
gemakkelijk geworden om extra statements te programmeren. 

Voor het aanmaken van de tabel moet echter nog het een en ander 
worden ge-poked, Or het Anladen van de in Acorn Nieuws afgedrukte 
statementa te vergemakkelijken is een standaard manier ontworpen 
die uitblinkt in eenvoud. In eerste instantie had ik hiervoor een 
lang programma geschreven, maar omdat dit een 'intelligent' (?) 
stukje software was, bleek al anel dat m.b.v. een beetje eigen 
intelligentie het allemaal veel korter kon. Aan de hand van een 
voorbeeld zal een en ander vlug duidelijk worden: 


3tel we willen een nieuws tabel met statements maken op #6800. 
Een tabel mag op z'n hoogst 256 bytes lang zijn, dus we kunnen 
veilig beginnen met assembleren op #6900 (als we zeker weten 
dat onze tabel ook in de toekomst nooit zo lang wordt, dan mogen 
we natuurlijk ook eerder beginnen met assembleren), 


We beginnen met het aanmaken van een lege tabel (een tabel die dua 
wel door P-Charme herkend zou kunnen worden, maar die nog geen 
statements bevat). Zo'n tabel ziet er alsvolgt uit: 


6800 FP 

6801 E3 

6802 6 

6803 80 (tabel eindigt altijd met #80) 
Ae kunnen die tabel dus gemakkelijk maken met: 

„$P 68001 BOC6BPF 


Om nu:de gepubliceerde statements te kunnen assembleren moeten we 
nog twee dingen doens 


a) de variabele T wordt gelijk gemaakt aan het eind-adres van de 
tabel. In het begin is dat dus # 6403. 
T-#6803 


b) de variabele A wordt gebruikt om de assembler te vertellen waar 
de statements maeten komen. Voor het serate statement kiezen we 
nut 


A=#6900 


Vervolgens runnen we achter elkaar de programma's van de statements 
die we ín onze tabel willen plaatsen. Het begin van al die programma's 
is steeds ongeveer gelijk en daar wordt onder andere de tabel gevuld 
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en worden de waarden van de variabelen T en A met de juiste waarde 
opgehoogd zodat T weer wijst naar het einde van de tabel en A wijst 
naar het eerste vrije byte achter het geassembleerde statement. 
Bovendien wordt het adres van dat vrije byte opgeslagen achter het 
einde van de tabel. Op deze manier kunnen we dat later weer gemakkelijk 
terugvinden. 


Met een HEX-dump kunnen gemakkelijk het byte #80 opzoeken dat het 

einde van een tabel aangeeft. Maken we dan T gelijk aan het adres van dat 
byte dan kunnen we het vrije assembler adres gemakkelijk toekennen 

aan de variable A met: 


A=T!1 


Hierdoor kunnen we ook de statements uit de volgende Acorn Nieuws 
gemakkelijk in de tabel plaatsen. 


Om de P-Charme interpretor wijs te maken dat er een tabel met sta- 
tements op 6800 staat moeten we nog op #3FC het hoge byte van 
de tabel poken: 


7#3FC=t68 


Voor diegenen die de statementa op de 16K-kaart zetten is dit nog 
het enige dat gepoked moet worden na het aanzetten van de ATOM, 
De machines met een ingebouwde bootstrap kunnen natuurlijk zo 
worden gewijzigd dat dit automautisch gebeurt, Voor de mensen 
zonder bootstarp, maar met 16K-kaart is het misschien handig om 
ergens op slot een klein programmaatje te plaatsen met de naam 
INIT (m.b.v. het PROGRAM statement) dat er ongeveer zo uit zou 
kunnen zien: 


10 PROGRAM INIT 
20 

30 74 3FC=#68 

40 218M29;LINK #C2B2 
50 END 


Het 'statement' (?) INIT sorgt er dan voor dat je over de extra 
statements kunt beschikken. Uiteraard kunnen in het ENIT programma 
ook andere zaken worden geinitialiseerd (de DOS kan bijvoorbeeld 
worden ingeschakeld). 


Bovenstaande is voor twee groepen van gebruikers interessant; 
ten eerste voor die mensen die zelf geen statements schrijven, maar 
wel de statements uit Acorn Nieuws willen gebruiken en ten tweede 
Voor diegenene die wel statements schrijven. Voor hen is het handig 
om te weten dat een zeer grote groep leden de beschikring heeft 
over P-Charme en dat de hiervoor genoemde eerste groep gebruikers 
er bij gebaat is dat gepubliceerde statements makkelijk te gebruiken 
zijn. Het is dus aan te bevelen (maar geheel niet verplicht of zo) 
om statements zo te schrijven dat ze geassembleerd kunnen worden met 
behulp van de variabelen A en T. 
Veel succes, 
FRANS 
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MORE-DIREGTORY 


Hoewel in het gewone gebruik van de disk-drive het maximale aantal 
tiles van 31 per schijf, voldoende mag heten, werkt het bijzonder 
storend met bijvoorbeeld FORTH. Ook heb ik wan enkele spelletjes 
fanaten begrepen dat het bijzonder handig zou zijn omeen groter 
aantal te hebben, bijv. voor het opslaan van diverse Data-files, 

Wel met het volgende programma Kan dat, In totaal Kunnen hiermee 
174 files (verdeeld oven é pagina’s met ieder !é K schijfruimte ter 
beschikking) per schijf bewaard worden. In principe werkt een en ander 
als volgt: . 

Middels de instructie XP N wordt allereerst de complete rautine 
Conder file naam P) geladen op 42206-42400 en gestart op #2206. Hoewel 
dit gebied in principe gereserveerd is voor de verwerking van 
candomfiles, is dit geen probleem, ondat bij wisneling van directory 
alle random files gesloten moeten zijn. Bovendien laat de beschikbare 
1éK per pagina slechts 1 randontile toe. Na controle en interpretatie 
van de parameter N wordt de oude directory opgeslagen op de schijf. 
Vervolgens wordt de gewenste directory-page N van z’n opslagplaats 
gehaald en als nieuwe directory geïnstaleerd. De parumeter N mag zowel 
een getal als een variabele zijn, mits BCNC7. Bovendien werkt een en 
ander zowel in de directe mode, vanaf het toetsenbord, als vanuit een 
lopend Basic-programne 

Dus é directory’s met leder 29 files, De resterende 2 files per 
directory (in de routine omschreven als "page") zijn nodig à) vaor de 
sturende routine, en b) om de op dat moment niet beschikbare andere 
files te beschermen. Een en ander wordt ultgevoerdt door de routines 
beschreven in regels 40-250. 

De rest van het programma (dwz. nadat het geassenbleerd is) zorgt 
voor het initialiseren van de totaal routine (regels 290-590). Duz. na 
het intikken van het prograama Kan men een reeds geformatteerde (lege) 
schijf voorzien van 174 files verdeeld over é pages, door te linken 
naar LL@. Het zorgt dan voor de opmaak van de & pages plus de opslag 
van de gehele routine op de schijf. Is de routine eenmaat aanwezig, 
dan kunnen andere schijven ook voorzien worden door de instructie XP 
€. Het gebruik van andere parameter waarden dan 0-ó zal resulteren in 
Error 169 : Illegal Guantity. 

Voor de rest van de werking van het programma verwijs iK naar het 
commentaar in het programms. 








NB. Bij het interpreteren van de parameter na invoer van de instructie 
XP N wordt als parameter alleen de laatste letter/cijfer voor de CCR 
geevalueerd. Dus na invoer van XP KOLDERI, zal page 3 ingeladen 
worden. 
Veel succes ermee, 

Ruurd van der Zee. 


YP-TO-YOU DRIVE 8 QUAL 
PAGE 1 


1 MOREDIR «Pp 
TEST moredi A 


18 PROGRAM MORE DIR 
28 DIM XX1,EE2,LL6;FOR 1207012; X1=-1 NEXT 
38 PRINT $21 
46 FOR N= TO 2;P=#2200 
58 [ 
68 \ INTERPRETE PARAMETER 
78 JSR HE226;DEC #83;DEC HOIGJSR HCFSE;CPY BHBOGBCC XX9 
88 BEG LL8;CPY @E#B7;BCC XXI 
PO:XXE; JMP HC46B \ ERROR 169 
188 :XX1;STY #23C3 
118 
128 \ SAVE OLD DIRECTORY 
138 LDA #2187;JSR WEGFA;GADC @HOI;BNE EEI;LDA G#08 
148:EEL;STA #ED;LDA #2106;BEG EE2;DEC #HED;DEC HED 
150:EE2;STA #EC;JSR HE7OS;JSR HE74DIJSR HE226 
168 
178 \ LOAD NEW DIRECTORY 
188 JSR #E75B;LDY #23C3;LDA #23C3,Y;STA HEC;LDA #23C9,Y 
198 JSR HE78I;JSR HE73CIJSR HE226 
288 
218 \ REPLACE DISK DIRECTORY WITH NEW PAGE 
228 JSR #E74A 
238 RTS 
2481 
250 
268 REM FORMAT 
278[:LL6;JSR HEBLG;1 
288 $P="DO YOU REALLY WANT TO MULTIPLY DIRECTORIES ON DRI 
VE * 
298 P=P+LEN P 
380 
318 LDA #HEE;JSR #FSSBIJSR HEOL6;] 
328 sp=" ?";P=Pt2 
338L 
340 NOP;JSR HFFE&;CMP @#59;BNE LL6 
350 JSR #FFE6;CMP &H45;BNE LL6;JSR HFFE6;CMP @HS3;BNE LL 
6 
368 
378 \ PREPARE 6 DIR-PAGES ON DISK 
388 JSR #E?SB;LDY @#17 
370:LL3 
488 LDA #23D8,Y;STA #2008,Y;LDA #23E8,Y;STA #H2108,Y 
418 DEY;BPL LL3;LDY @HÔ6 
428 
438 :LL4 
448 STY #23C3;LDA #23C3,Y;STA HECGLDA H23CP,Y 
458 JSR #E703;JSR HEZ4D;JSR HE226;LDY #23C3;DEY;BEG LLS 
n 468 LDA #23AE,Y;STA H2186;LDA H23B3,Y;STA #H2107;LDA H23B 
Y 
D 
470 STÁ W218D;LDA H23BD,Y;STA H2IGE,DEC #20BEGIJMP LL4 
8 
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490:LLS 
58e JSR #ESA7 \ FILL DISK-DIR WITH PAGE 1 
518 


528 \ SAVE THIS ROUTINE 

530 LDA @#22;STA #9D;LDA EHAG 

548 STA HPCISTA HAB;STA HAZ;LDA ERB2ISTA HAI;STA HA3 
558 JSR #E6BO 


S6ô:LL& 

578 JMP #FFED 
588) 

58 


648 PRINT $é 
618 NEXT;PRINT $3 

620 FOR I=P TO H23FF STEP 4}! Ie#EAEAEAEA;NEXT 
630 

648 REM TABEL DATA TRACK/SECTOR FOR EACH DIR-PAGE 
650 Pa#23CIIRESTORE 708 

648 FOR Iet TO 6 

670 READ T,‚S;PPIaT;P?(1+6) =S 

689 NEXT 
690 

788 DATA 8,4;REM TRACK, SECTOR 

718 DATA 0,6 

728 DATA 8,8 

738 DATA 1,0 

748 DATA 1,2 

758 DATA 1,4 

768 

778 REM TABEL DATA FIRST DIRECTORY (PAGE 1 
788 P=#23D0 

790 RESTORE 848 

880 FOR I=@ TO #2F 

818 READ X;P? ex 

820 NEXT 

830 : 

848 DATA #55,458,#2D ‚N54 „HF „H2D ‚N59, KAF 
850 DATA HAD,#50,H41,M47,W45,NZO, N36, HOO 
860 DATA #50,420 ,H20 ‚#29 „N20 „N20 „#20 ‚HAA 
878 DATA #55,420 „N20 ,#20,W20 „#10 ,K0 1, #70 
B88 DATA HOB,NOG,HEG, HOB „HOO, HOC, HIS, HOG 
890 DATA #OE,M22,H0G,H22,N0D,H02, NBO, N02 
>ee 

710 REM TABEL DATA DIFFERENT FOR EACH PAGE 
929 RESTORE 1610 

938 P=423AE 

948 FOR 1=8 TO 19 STEP 5 

95 FOR Jet TO 5 

968 READ X;PP(1+J=X 

270 NEXT J 

986 NEXT 1 

#90 ENO 

1908 

1810 DATA HOB,HOB,MBB, HOL, HOL 

1820 DATA HSG ,HPA,HDO ‚NLG „NSE 

1838 DATA HOC,HAC, HBC, HCC, HOC 

1848 DATA #O6,H3G HIG, WEG, NIG 
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SUPER DR AW 


Gebruiksaanwijzing SUPERDRAW 


disk/cassette versie aprit 1984 
* beschrijvine & 


“SUPERDRAW" is zen prosramma voor de Rcorn Atom dat het moselijk 
maakt: mits voldoende 

genevsen voorhanden is (zie onder het kopje "“seheysensebruik“), in 
dit seheusen een sratisch beeld op te bouwen met een oplossend 
vermosen van S12 (hor.) &* 384 (vert.) punten. 

In principe is hiervan niets zichtbaar op uw scherm. 

Het prosramma echter biedt de faciliteit om een sedeeite van de 
afbeeldins naar het schermsenhevsen met een capaciteit van 255 « 192 
punten te kopieren zodat precies een kwart van de afbeelding te zien 
is. 


Dit scherm of venster is in stappen van 8 sunten in de vier 
richtinsen over de afbeelding te schuiven zodat elk deet van de 
afbeelding bekeken kan worden. Dit principe noemt men ’windowins' 
(zie fis. 1). 

Dit extra scherm nu biedt de mosetijkheid om een aantal bewerkingen 
uit te voeren tussen dit scherm en het onderltisgende deel van de 
afbeeldins. 

Zo vindt het inkleuren van beeldsedeeltes plaats op het scherm 
zonder de afbeelding te veranderen: mocht het resultaat tesenvalten 
dan is de oorspronkelijke situatie eenvoudis te herstellen. 

Verder kan men een overzicht van de sehele afbeeldins Kkrijaen door 
deze te verkleinen naar het scherm. 

Overise moselijkheden zijn het punt voor punt tekenen van lijnen in 
2 richtinsen (met REPEAT 58 punten per seconde): het trekken van 
lijnen: het spieselen van scherm of afbeeidine: het versroten van de 
Scherminhoud naar de afbeelding, het inkteuren van contouren met 1 
van de 2á erijstinten (zie fig.2): het aanbrensen van een raster: 
een kader: het inverteren van de afbeelding: invoeren van tekst, 
taden/saven van de afbeeltdins of een enket scherm. 

Vaardisheid dient ook hier verkregen te worden door oefening? het 
voordeel is dat u het resuitaat van vrijwel iedere bewerkins direkt 
OP UW Scherm ziet verschijnen. 

Voor op-, aanmerkingen en sussesties houd ik mij van harte 
aanbevoten. 


Rob van Dort 
MSS 
TST TA Haarlo 
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* laden t DATA met «LOAD "DATR'$ «RUN “SPRDRAW" 


* geheusensebruik 5 


prosramma ( machinetaal } SC@G-AFBO 
data characters 1C@0-2000 
stackruimte inkleurroutine @21C-BIFC 
opslas afbeelding 2020-s000 
scherm of venster 8a0Ĳ-S800 
tijdelijke ooslauruinte S80D-3COD 
opstart-adres (SSS6) Cea 


“ opstarten 1 C na onderbrekins ) LINK #5555 : antwoord op eerste 
vraas JA of anders 


« instructies : 
DEEL 11 CONTROLFUNCTIES 
- ctri-8 t naar menu voor bedienine diskdrive of 


cassetterecorder 


= CUr iel tek wis afbeeldins, cursor + scherm linksonder 


= ctri=G 
= GUri=M ser 


versroot het scherm 2% lineair naar de afbeetdina 
kopieer het scherm naar het ondertissend deel van de 
afbeelidins 

maak invoeren van tekst mogelijk Subkommando' s: 


El 
= ctrt-A ì afbeeldins 8 posities naar links t.o.v. scherm 
— ctri-8 2 isen „naar reents 
= ctri-W * idem’, naar boven 
= ctri-Z t idem ; naar beneden 
= ctri=H t cursor en scherm naar HOME-positie linksonder 
=_ etrt-I t inverteer afbeeldins 


= ctrteT 


ctrt-J : cursor 18 omlaas 

ctri-K & cursor 1@ omhoog 

RETURN : nieuwe resel 

DELETE 1 verwijder laatst insevoerde teken 
ctri-T : verlaat tekstinvoer mode 


= ctri-E ì verwisset scherm / ondertiesend sedeelte van de 
afbeeldine (exchanse) 


= Ctrl -D tk dump afbeeldins naar printer (zie NOOT 2) 


- etrt-F scherm aan: het scherm toont orecies wat ’eronder’ 
liet 

= etri 3 scherm uit: het scherm wordt ontkoppeld van de 
afbeelding 

= CUrI-K teken een kader om de afbeeldina 


= CUTIN mee 
— CTTI-D 
== ETriX ver 


AND scherm / atbeeidins 

OR gcherm / atbeeidins 

EXOR scherm / atbeetding 

= ctrt-P positioneer cursor in midden van scherm 

= Ctrte@ ve auit 'SUPERDRAW' naar iese Basic tekstruimte #E200 
= CUTIR tam EXOR de afbeeldins met een raster net maas B 

= ctri=y * verklein de afbeeltdins naar het scherm 

= ctrt-Y sevolsd door een cijfer @ t/m 3: 'verdun' het scherm 
7 EtricC sevotsd door een letter A t/m W of a t/m w : vut de 
contour op het scherm waarbinnen de cursor Zich 
bevindt met het sevraasde arijsraster 
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DEEL 2 : LETTERFUNCTIES 


{SHIFT-@ 


ij 
ATJE <dtdCWHZIC<ACOLMNEURNEND 


= \S 


pn 
— SHIFT-t 


Bur S 


“ betekent % 
afsluiten met 


cursor 1 positie naar links 

idem naar rechts 

idem naar boven 

idem naar beneden 

cursor 19 posities naar lirks 

idem naar rechts 

idem naar boven 

idem naar beneden 

cursor links op regel 

cursor rechts op resel 

inverteer punt onder cursor 

cursor naar links en reset punt onder cursor 

idem naar linksboven 

idem naar boven 

idem naar rechtsboven 

idem naar rechts 

idem naar rechtsonder 

em naar beneden 

idem naar linksonder 
cursor naar links en set punt onder Cursor 

* idem naar linksboven 

dem naar boven 

naar rechtsboven 

naar rechts 

naar rechtsonder 

naar beneden 

naar linksonder 

definieer startpositie van te trekken lijn 

trek witte lijn naar cursor (PLOT 5) 

inverteer tijn naar cursor (PLOT 6) 

trek zwarte lijn naar cursor (PLOT 7) 

roteer reset waarop cursor staat j positie naar 

rechts 

: roteer resei waarop cursor staat 1 positie naar 
links 

1 spieses scherm (alteen versie A) 

spiesel afbeelding (alteen versie A) 

knieper een btok rond de cursor 

scherm linksonder 

scherm rechtsonder 

scherm | inksboven 

2 scherm rechtsboven 




















de betreffende toetsaansias 2 keer uitvoeren en 
RETURN (= c$ri=-M} 
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* beschrijvi 





— aanroep met crtt-@1 
7 een Commando moet worden Insevoerd zonder de « { bijv. CAT ipv 
“CAT Ja 


= indien 


een fout opsetreden is (disk vol: tite niet sevonden ot 


beschermd, etc.): wordt het menu opnieuw seseven: 

” het systeem wacht ook bij sebruik van diskdrive tot de vitvoerina 
van een opdracht voltooid is zodat beschadising van fi te 
en/ot afbeelding voorkomen wordt. 


NOOT t 1 


NODT 2 ; 


NOOT 


16 


NOOT 4 


NOOT 5 


NODT 6 2 


ZET VOOR 


NOOT 7 : 


Noor 8 : 


NOOT 9 : 


met ESCAPE is ledere foutieve invoer te onderbreken 


oa ctriI-D *« wordt een JSR #S555+#0R17 uvitsevoerd alwsar 
ten JMP behoort te staan naar de start van een door uzelf 
semaakte printerdumproutine, Verander daartoe de bytes 
#S555+#0018 en #ESGS+H0D19 in het sewenste adres. 


de cursor seett OOk aan waar in de tekstinvoer mode het 
Cerstvolaende teken verschijnt. 


is het resultaat na inkieuren niet het bedoelde, dan is de 
oorspronkelijke Situatie eenvoudis te herstelten met 
ctri=-F} het resultaat is pas definitief na ctri=M «*; het 
inkleuren is te onderbreken met de SHIFT-toets. 


tijdens het inkleuren van zeer complexe figuren kan het 
voorkomen dat het proces voortiidis stopt en 3 piepjes 
seeft: dit betekent dat de stackruimte voor de 
inkleurroutine vol is. Dikwijls is door een andere keuze 
van de startpositie (de cursor) 

dit probleem op te lossen, De beste startpositie bij zuike 
tieuren is zodan!s dat links en rechts van de cursor 
onseveer evenveel aftakkinsen zitten. Bij "normate' tisuren 
hoett u zich hier seen zorsen om te maken. 


de sebruiker kan beschikken over de PLOT-routine van 
SUPERDRAW. LINK #SSSS+#000A is een "CLEAR 5’ : wist #Z020 -— 
B7FFF 

en vult het adres van de routine in op 4SFE,MSFF. Alle 
volsende BASIC MOVE-, DRAW- en PLOT opdrachten vinden nu 
Staats op de srote afbeeldins, Zors wel dat het prosramma 
dat het tekenwerk verricht op een veilise plaats staat ''! 
(bijvoorbeeld vanat #8200) - 

ALLE ZEKERHEID UW TEKENPROGRAMMA OP TAPE / SCHIJF VOORDAT U 
* RUNT* 


wees er op bedacht dat bij 'normaal” sebruik van de 
aisk-drive het sebied #2000-#2200 beschadisd wordt. Onder 
“SUPERDRAW' is de atberidins hiertesen beschermd. 


bij verlaten van 'SUPERDRAW' wordt v neersezet op BASIC 
tekstruimte #82. Dit is te veranderen door op adres 
#SSSS+HDDIB de sewenste tekstruimte in te vuilen. 
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B REM E-DIM, PLOT 23-5-"84 
18 REM DEMONSTRATIE 'SUPERDRAW' 
20 REM DRIE-DIMENSIONALE PLOT 
30 REM "SUPERDRAW' MOET GELADEN ZIJN ! 
40 REM LAAD DIT PROGRAMMA VANAF #9838D (PHELZAD) :!! 
58 REM ZIE OOK ATOMIC THEORY & PRACTICE P.8s 
EB REM ROB VAN DORT 
79 PRINT $12$12618" ie 5 MINUUT GEDULD 5, V,P, “7 
80 L=S@3MSBOIN=IEREM COORDINATEN TOESCHOUWER 
38 LINK #S9CA FREM "CLEAR 5" 
108 Z=z4 
118 
128 Sal +MeM 
139 R=rSOR(5) 
140 TeS+NeN 
158 Q=SARCT) 
168 
178 C=256;D=182;REM COORDINATEN MIDDELPUNT SCHERM 
188 
193 FDR U=-48 TO 40 STEP 4 
208 V=-4B: GOSUB CIGUSUB b 
218 FOR Va2-38 TO 48 STEP 2 


220 BOSUB c:GOSUB a 
258 NEXT Vv 

248 NEXT U 

250 


258 FOR Va-40 TO 4R STEP 4 
278 Úe-40:GOSUB c:GOSUB pb 
250 FOR U =-38 TO 48 STEP 2 
298 GOSUB c;GOSUB a 

zee NEXT U 

318 NEXT V 

328 LINK #9CD2 

358 END 

348 

SSdazes 
SEOLOeRe (TUe Vat We) 

3578 KmGaT Val Ue) wm /O 

SBB Valt Sn CWS Nk CUL Ve D /O 
330 PLOT Z,X, YsZ=á 

488 RETURN 

418 
A2SCH=EDE/ (1 Be Lekt Va) 103 R. 


[DE INKTJET PRINTER ACORN NIEUWS Lea. 47] 


Een inktjet-printer heeft als srote verschit met de normaal 
door ons gebruikte printer, dat his seen contact maakt met 
het papier. Er wordt dus niet met matrik naalden of met 
lettertekens via een lint op papierstdrukt. 

Daarentesen spuit de inkt-iet printer de inkt via een stazen 
staaf op het papier. Het srote voordeel hiervan is de 
seruistoosheid. Ook is men niet meer afhankelijk van de 
vaste beeld-drasers of van het voorgeschreven matrix 
patroon. Hierdoor heeft men de beschikking over de maksimale 
mosetijkheden in het srafisch sebeuren. 


Een inktjet-printer Wordt op de markt gebracht door 
Olivetti. De technische sesevens van deze printer luiden als 
vorsts 


TYPE: PR 2308 

DRY INKT YET PRINTER 

SCHRIJFT BIDIRECTIONEEL 

SNELHEID: S@ TOT 130 REGELS PER MINUUT. 

SCHRIJFT MET 150 35 KARAKTERS £ 7 #« 7 MATRIC ) 
AFHANKELIJK VAN KEUZE: 89, 97 OF 147 KARAKTERS OP EEN REGEL. 
WERKT MET LOSSE VELLEN PAPIER OF ROL VAN 216 mm OF 
CONTINU DOORVOER VAN PAPIER (PIN FEED). 

GEWICHT: 5,2 ka 

AFMETINGEN: JB4mm * 1ldmm * 25mm. 

GEEN AIR CONDITIONING VEREIST. 

ADVIESVERKOOPPRIJS F. 1.695,00 exci. B.T. W. 


Leden van de ACORN COMPUTER CLUB kunnen deze printer Kosen 
voor de tedenprijs van F. S00,00 exic. BT. W. 

Besteltinsen hiertoe dienen UITSLUITEND SCHRIFTELIJK te 
worden sedaan bijt 
Dhr. W. Bonewald. 
Goudrenetstraat 6, 
55652 NV Eindhoven. 





Door Olivetti wordt daarna een factuur naar de aanvraser 
sestuurd. De teverins zal seschieden na betat ins franko. 


TEMSE! Ont, -,/0123456789:; (=)7BABCDEFGHIJKLMNOPARSTUUWXYZEN\I®- ‘obedergnigk 
APSEUVWKYECI HTI NSZE' Ove {8123456789 :; (=> 7BABCDEFGHIJKLMNOPGRSTUUWXYZC\I 
cdefghrijklmnoparstuvwxyall}T IPWSZE' ORt,-,/0123456789: ; (=> TOABCDEFGHIJKLMNO! 
UUWXYZENIS ‘ObCdEFGhijkIMROPSPStuvwxyal tT IP HSE! Ott, -./012345678I:; (=)70A 
GRIJKLMNOPGRSTUVUXYZENJA, ‘abCHerghijklmnoparstuvwxyall JT t° HERA! OOut,-./0123 
P:; Ce) 7HABCDEFGHIJKLMNOPARSTUVUXYZI\JA_ ‘abedefghijkimnoparstuvwxyzi 3D! nsx 
0123656789:: (2) 7BABCDEFGHIJKLMNOPGRSTUUWXYZC\IA_ ‘abedefgnijkimnoparstu 
ISLE! Out, -,/012345678P:; (a) TBRBCDEFGHIJKLMNOPERSTUUWXYZEN\I. ‘abcdefg! 
MNOPGPSEUVWXYZCHIT IS WSKE’ Okt, /O12365678P:s (ed 7DABCDEFGHIJKLMNOPARSTUUWXY 
-'abedefghijklmnoparstuvwxya{l}T!.#SAE’ ()ut,-,/B123656789:; (=) 7OABCOEFGHIJK! 
ORSTUUWXYZEN\IS. ‘abCdefghijklmnoparstuvwxyzi JT! *MSLE’ Ouwt,-,/01234567BI:; C 
CDEFGHIJKLMNOPERSTUUWXYZENJA_ ‘abederghijklmnoP@rstuvwxyzi 3”! 'BSZA’ Okt, / 
56789: ; (=> 7OABCDEFGHIJKLMNOPERSTUUWXYZCNIJA ‘abCderghijklmnoparstuvwxya{l }”!' 
TO R+,=-,/8123656789 => 7AABCDEFGHIJKLMNOP@RSTUUWXYZENIA. ‘abedefghijklmnopg 
WXYECIDT ET HSLE! Okt, -,/0123656789: ; (=) 7OABCDEFGHIJKLMNOPGRSTUVWXYZENI”. vabee 
ijJKAMNOPATStuvwxyzCi TU NSKE' Owt,:-,/O123456789:; Cx) 7BABCDEFGHIJKLMNOPGRSTUL 
CNIP ‘abcderghijkIRnoparstuvwKyzt JT iP WSRE! OOut,-,/01236567B89:; (u) 7BABCDEFGH 
MNOP@RSTUUWXYZE\ IJ „obederghijkimnopanstuwwxyz{ ij” !"M$Z8' Out, -./8123456789 
VAOROCNEELCHT.IMI MNAEBRBGCTIEULIVVIE\ JA VARA E miei Ile Vanermen en er de a en 





















PRG. 48 [ ACORN NIEUWS EXTRA STATEMENTS ERRANS VAN 


DIVERSE EXTRA P - CHARME STATEMNENTS 


Hier is dan een eerste set van extra statements voor gebruik 
met P-Charme. Als deze programma's stuk voor stuk worden 
gesaved met behulp van het BSAVE statement, dan kunnen ze op 
een simpele manier worden geassembleerd en in de tabel worden 
gezet. Voorbeeld: 


1868003 BOCGE3PF 

Ta#6803} 

46880 

zRUN "ATTACH" 

aRUN "EXTERN" 

zRUN "VLIST" 
enz. 


PM ZPC 68 


De statements zájn nu beschikbaar en worden herkent door de P-Charme 
interpretor, Reat nog een korte beschrijving ven de diverse 
statements: 


VLIST Yocabulary list VL. 


Dit statement geeft een lijst van alle extra P-Charme statements 
die op dat moment door de interpreter herkend worden. Die lijst 
begint ateeds met het pagina-nummer van de tabel met daaronder 
de statements en hun start-adres. 


CLS Clear screen CLS 


Ket behulp hiervan kan het scherm worden schoongemaakt. Het 
voordeel van CLS boven PRINT 812 is dat CLS ook werkt als het 
scherm uit staat (met PRINT 821) en dat als de cursor uit staat 
dat ook zo blijft. 


ATTACH Attach library AT. 


Dit statement moet altijd gebruikt worden voordat de externe 
procedures of functies kunnen worden gedeclareerd. ATTACH moet 
worden gevolgd door een (correcte !) naam van een programma (zie 
pagina 12 P-Charme handleiding). Als dat programma niet in het 
geheugen staat volgt een foutmelding waarvan het nummer afhankelijk 
ís van de plaats waar het ATTACH-statement geassembleerd werd. 
Na ATTACH kunnen alle procedures en functies uit het betreffende 
voorbeeld worden gebruikt als externe procedure (of functie). 

Zie voorbeeld programma verderop. 

ATTACK mag binnen een programma meerdere keren worden gebruikt om 
procedures op te halen uit verschillende programma's. 


Ps, In een externe procedure of functie behoren geen GOTO's 
of GOSUBs te worden gebruikt. Deze springen namelijk naar 
het hoofdprogramma!!! (logisch). (kan eventueel worden 
opgeloat door tijdelijk(!) de waarde van ?18 te wijzigen). 
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EXTERN EX. 


Dit statement mag pas gebruikt worden nadat met behulp van ATTACEH 
een andere programma is aangewezen om te worden gebruikt als 
bibliotheek van procedures en functies, Uit zo'n bibliotheek 
(zie voorbeeld STRING.LIB) Kuanen met behulp van EXTERN de 
benodigde procedures worden geseìecteerù, EXTERN moet worden 
gevolgd door het woord PROC of FUNCTION dat dan niet afgekort 
mag zijn, met daarachter de naam van de procedure (of functie) 
die men uit die bibliotheek wil gebruiken, In de bibliotbsek 
zelf moet PROC of FUNCTION ook het eerste statement van een 
regel zijn en mag het niet worden afgekort. Zie ook het programma 
VOCRBEELU. 


* hl 


Dit zeer korte statement moet direct gevolgd worden door een hexa- 
decimaal getal en komt in de plaats van: 


218, 3NEW 





afhankelijk van of er wel of geen OD staat aan het begin van de 
textpage, Voorbeeld: 


#29 


DIS Dis-assemble DIS 


Dit statement begint van een opgegeven adres te dis-asserbleren. 

In feite ie dit de Miracle dia-assembler uit Acorn Nieuws van 1983, 
Binnenkort zal er echter een nieuw DIS statement worden gepubliceerd 
aat dan is uitgebreid met een zeer fraai BTEP statement dat zeer 
veel mogelijkheden biedt (hoop ik). Voorbeeld: 


DIS #4002 


B 


Dit korte statement — een ge-inverteerde p - is bedoeld om in direct 
mode (vanaf het toetsenbord) te worden gebruikt. Het verzet de 
BRK-vector naar P-Charme godat bv, multidimensionale array \aannen 
worden afpedrukt. Het gebruik van B ig echter aan enig riaico 
verbonden, Voorbeeld: 


GPRINT SS(1,12) 


Merk op dat dit statement níet noodzakelijkerwijg gevolgd moet 
worden door een '4'. Het gebruik ervan binnen een programma is af 
te raden. 
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18 PROGRAM VLIST. STAT 
ze 

38 DIM LLS:F. I=ATOS ILL I= ISN. 

48 PRINT $214P=A3GOSUB a 

58 PRINT $6 3P=A:GOSUB a 

68 ST="VLIST"}TaT+LENCT) 

78 IT=tlG/25EN48DIT? 1elLAA2SEFT 20480; T=T+2 

88 A=PIT!1=A 

28 END 

108 

t18ar 

120:LLBIJSR PCLE4ILDA HIFCHSTA HIS 

13BELLIJLDY BOISTV #SSIJSR HCDS4 

140LDA #95ISTA #I4AILDA CBI5). VISTA #95 

15BGINY:LDA (#55), YICMP ARESIBNE LLá 

16GINYsASL AICMP (W33), YSDNE LLâ 

170LDA #94: JER #F3TESLDA BCH" 3"IJSR HCALCIJSR HCD54 
1EBsLL2ILDX #7:CPY BIOFBNE LLSSJSR #CDS4 
18@:LUS:INYSLDA (#35): YICMP ARBAIBEG LL 

200BPL LLS:IJSR #CA4CIBPL LLS 

218:LL4IJMP #CSSB 

220:LLSIJSR #F37IILDA #7IAND AKOFICMP BHDA:BNE LLS 
230LDA #945ORA BWZFSAND CRI, YIJSR HF SIE 
Z4OINYsLDA (#93), YIJSR HFZ7EIJSR #FS79IJMP LL2 
2501 

258 RETURN 


18 PROGRAM CLS. STAT 
23 

Ze DIM LLO 

48 -P=A:GOSUB a 
SOPST="CLS" TeT+LENCT) 
60 :?T=LLB/25ENRBO: T?1=lLOX25E1IT2=#80IT=T+2 
78 A=P1T!imA 

8D END 

38 

10BaE:LLBIJSR #CAE4 
1OSJSR #FDEDIJMP #CSSB 
1181 
128 RETURN 


18 PROGRAM a, STAT 

2e 

38 DIM LL@ 

48 P=A:GOSUB a 

56 $T="p*;T2T+LEN(T) 

68 ?T=lLB/25E5#87IT?1=LLBK2SEFT2=#EDI TET 2 
78 A=PsT! i2A 

88 END 

28 
10aC 
1185LLBIJSR HAGZEIJMP #CSIB 
148 
158 RETURN 
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18 PROGRAM ATTACH. STAT 

28 

38 DIM LUJIF. I=BTOSILL I= IN. 

48 PRINT $211P=A1GOSUB a 

S@ PRINT $6 1P=A3GOSUB a 

SB ST="ATTACH" IT=T+LENCT) 

70 7TsLLO/25GAHEDI TI iet LOK2SEIT 22080 Te T+ 2 

58 AaPsT!1i=f 

83 END 

108 

118aC 

126:1LL@IJSR #AEOF:LDA SHOFISTA #52 

13B:LLEINC #32ILDR #S2ICMP BHADHBEG LLI+IJSTA #2 
14O:LL TILDA 9B5STA #I1:LDY 257 

15®:LL28INYELDA (H9I): YICMP HAFAD: VIBEG LL2ICPY SPOBIBNE Lil 
16DJSR #ASTE:TYAILDY #S2ITAXISTK #ISIINXEJSR HRSAL 
178BCS LL1IJMP #C5S8 

1383 

208 RETURN 


18 PROGRAM EXTERN. STAT 

28 

30 DIM LLi2:F, I=BTO123LLI=93S iN. 

48 

5® PRINT $215P=A3GOSUB a 

68 PRINT $6 1P=AIGOSUB a 

78 ST="EXTERN"sTaT+LEN(T) 

89 PT=ilLO/25E80480I Tel LAL2ZSEIT? 2e BOI TeT+2 

2% A=P3T!1=A 

188 END 

118 

128aE 

13B:LLDIJSR HAEOFILDX AHFF1 

140:LLITSTX #56:DEY$ 

150:LL23INXELDR #ASAL: Xs: BMI LL&TINY3CMP (#85), YFBEO LL21 
16GILLITINXELDR #ASAL, X3BPL LLI 

17BINXSLDY #053CPX S#2AEBCT LL1SBRK 

18BiLL4tINY3STY WIIJSR HAEOFISTY #95 

193LDY BGISTY HSSILDA HI2ISTA #53 
200:LLSIJSR #A277ITYAICLCHADC #583STA #SBIBCE LLEIINC #59 
2i:LLE:LDY B1FLDA (HSB), YIBMI LL4+SIINY 
228:LL73INY:LDA C#58), YICMP @R2OIBEG LL7IDEYILDX #56 
Z30:LLBsINXILDA #ASA1, X:BMI LLS 
24BINYICMP C#5B), YI BEG LLSIBNE LLS 
25B:LLSISLDA #58ISTA #A1ILDA #S9:ISTA HIZIJSR HASID 
2EBTYAICLCIADC #91IBCC LLIGTINC #92 

270:LLIG PHAITAXILDY #925TYAIPHASTKAISTK HASIINKIJSR WAS4G 
ZBOLDY #I45DEYIBCSH LLS 

29OiLL11sLDA #OTIPHAILDY HISISTY #BIIJSR HAS2BIBNE LLt2 
ZOOPLAISTA #OF:PLAISTA #28BD. Xs PLA:STA #2SDE, K3 JHP #CSSH 
S1OsLLI2IJMP HASAL 

3203 

338 RETURN 
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18 PROGRAM DIS.STAT 

28 DIM LLC28), TTC) 

38 FOR I=B TO 203LL (1) =98S9; NEXT 

4@ TTCG5=999; TT(1)=999 

Se vet7a 

68 PRINT $2isP=A;GOSUB a 

7® PRINT $6 :P=A:GOSUB à 

88 $T="DIS"G;T=T+LEN(T) 

90 T=LLB/25EDHBA T?L=LLAK25EITI 2E TT 2 

108 A=P;T! 1=A 

118 END 

128 

150ar 

140:LLAI ISR HCGEIGLDY BVSLDX #AFISR HCICDIJSR LL2BIJMP #CSSB; 
158: LL205JSR LLISBNE LL20; 

158:LLisLDY a#2: 

17@:LL2:LDA (V),Y;STA #E6, Y:DEY: BPL LL2t 

18@:LLSIINYSSTY #FELDX QH4D3 

198:LL4ILDA HEEICMP BHD4FBEG LLESSEC:HSRC #F1FZ: Y5 SEC 
Z80SBC UFZ10D: XIBNE LLSSISTA HESILDY #FZ50, X5 
218:LLS:ROR A;ROR HESIDEY:BNE LLS;LDY #FGAND #FIDS: Y 
220BNE LL7:LDA #FIEG: YHAND HESIBNE LL7: 
23O:LLEIDEXSBNE LL4:CPY BHEIBNE LLE:LDY @HDILDX AHIIISTY HF 
240:LL7sLDA #F202, YICMP AHF:IBNE LLBILDA O#1 5 
25D:LLSFAND BHFISTA #ESISTA #OISTX HERILDX AVIJSR HF7F1 
Z5OLDX BVsLDY ARO; 
27B:LLAELDA CV), YIJSR #F7FAIJSR HFADEGDNE LLIGGPLASPLA: 
28B:LLIOIDEC #ESIBPL LLS 
290LDY HEDIJSR #FSIA:LDX HEAFLDA #F1I4, XISTA HELAILDA HF15G: X 
SODSTA #ESILDY DMT 

ZIOrLLiLsLDX ORS: 
320: LL12:ROL HE4FROL WESIROL AIDEKXSBNE LLI21AND SHIFSCLC 
SSBADE OHSF:IJSR HFFFASDEYGBNE LL11 
Z4OJSR HF7FD:LDY @RESLDX #FILDA TTO, X5STA #69; 
SSB:LLITICPY GRESBNE LLIS:TXAGBNE LLIS 
ZEOLDA #67:BPL LL1G3DEK: 
Z7O:LLI4sCLCIADC VISTA #67ITKAIADC V+1ISTA K5B 

SSOLDX SH25BNE LLiGs 

SIC:LLIS:LDX #AFBER LL1Gs 








LOB: LLi DA A#23IJSR HFFFGS 
41@:LL1 DA #EE, XIJSR GFBA2IDEKXIBNE LLI7: 
&20:LLIEIASL WEIIBCS LLIS:LDA TT1rYSJSR GFFES: 


4SBELLIOD:HDEX:DEYsBPL LLISSJMP #C5O4; 

4401 

458 TTM =P SEP 

450 !P=&FSFFFEFF; P!4=N7F7FFFCF; P!B=#87BICFFSEP! 12=4FSB7FF 
478 PaP+i5 

48B TTCID=P 

498 !P=BDIP!1SKZI2CSI4 IF PI S=RUDZELCHE P=P+I 

50A RETURN 
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18 PROGRAM #. STAT 

28 

30 DIM LLO 

4@ P=AIGOSUB a 

50 STe" #*sTeT+LEN(T) 

EB ?Teli0/25E0HBD5T? Lel AA25EITI ZBO T=T+2 
7@ A=PtT! ief 

88 END 

50 
182al 
11@:LLOIJSR #CSZAIJSR HCLEG 
12BDEY:L.DA #52:S5TA P125STA #55 
1SBLDA (#54), Y:CMP SHADIBNE P+5;JMP #CD9B5JMP #C2D5 
1403 
155 RETURN 


18 PROGRAM VOORBEELD 

2e 

5@ ATTACH STRING 

4D EXTERN FUNCTION LEFT 
58 EXTERN FUNCTION RIGHT 
68 EXTERN FUNCTION MID 
78 

88 DIM 5664 

90 $3="THIS IS A STRING" 
182 PRINT SLEFT(S,6)' 

118 PRINT SRIGHTCS, 18)’ 
128 PRINT SMID(S: 2,6)" 
138 END 


18 PROGRAM STRING.LIB 
28 
38 FUNCTION RIGHTCS,L) 
48 S#14ABSSSIIF LLLEN(S) SH140=$5+LEN(S) -L 
58 RIGHT=#14D 
68 FEND 
78 
88 FUNCTION LEFTCS,L) 
0 SRI4D=SSHL MIG Lel D 
108 LEFT=#140 
118 FEND 
128 
138 FUN@TION MIDC(S,L, M) 
148 MI4D=1S3IF LIENS) SHI4OSSS+L-15MI 1401 
158 MID=#140 
168 FEND 
178 - 
182 END 
138 
200 ZIE OOK PAGINA 51 P-CHARME HANDLEIDING 
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Benedeneind nnee eee keke etende etendeneenbedene eenden ke ek 
JOoYsSTIGCK AANPASSINGEN 
eorhentetendendene peop benk eenden eee ne hbe oa eben eten oee ee ba ke 


RATTRAP: M#I4DB=NDB WS4IEERD2 INTL2SEROD 7HFA2D=ROE 
Ibi NI44IERD2 PHTASCeRDI 4345F #05 
REGEL NR.190 ?&B80G=AFD: IF WBOUILI=D D2=D 
REGEL NR. 1S1 ?#BEE0=#F Is IF ?#BOS1A1=D DI2=8 


ACORN KONG: 
REGEL NR. 3938, 
REGEL NR. 5948. . 
REGEL NR. 5858. 


…Qa13,.. assen. 














REGEL NR. 5060. « ……Gm43... . 

REGEL NR. 38BO.......PNBOGIK2e1 OR 023, 
BABIES: 

REGEL NR.19205 IF?7WBEG1E220.............. 


REGEL NR.10018 IF?#&BED1 4820... ........... 


WARLORDS: ?9S5OIeFO PRST1ie1D PNSSI7MHFD MISSIO 
IMI527eFi PES52F ENIG PMSSISeRO1 9PI5IBENDG 


ER ZIJN TWEE JOYSTIEKS NODIG OM TE SPELEN! 


OMEGR MISSION: ?#35ODF=#ID IWIDFF TA PRIDIE=N2? 
203DBE=NIJ WIIZinD1 PWIT24eB1 


STOEKCAR: !'#IAO2eHDEBEFIFD 'KTOUERA2D2F IFE MIGFES 
1#30DA=ID1AFIFD !HIODEROADAF1FO 


DOK HIER ZIJN TWEE JOYSTICKS NODIG! 


INVADERS (VAN BUG-BYTE): ?W550FeFD IWI517=482 PHSI2 128 
243354 H4E PWISESeOL PESIEEHBR 7W53E67 NID 


ASTEROIDS: ?#ZEBl=i4 742EB2=#00 INZEBI=HIB IN2EBATH2S 
I2EBSnti8 'W2ESSHDASBI42D IN2EINT=NDT 
14ZEAS=HDOSBIFZO MWZERSHOS 


P=#ZB00: CL DAA#FO: STANBOGS 3 LDAKBODL & RTS LDAAHFD: STAKBAOO 

ELDA#BOO1 s ANDAZ : RTS; LDASEFD; STAKBABD : LDAKBOOL : ANDAS ; RTS 

ELDAS#FZ ; STA#BODO : LDAHBOGL 3 ANDA1 ; RTS 

PRINTER: IK2ELD=E NID IN2ESTERDI PRZESALHID PHZEE2 HLD 
IZEES=HID INZET imkD4 IN2E7GeRID IN2EBOmHS2 
I2EBá= ID 

FROGGER: ?#TEAT=#ZI INIEABeHIS IKSEAFSHIS INIEBI=HIL 


TORPRUN: #TISZ=EDE IKS2EL=ADA IHSCEC=HDD 
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ATTACK: I#29EE=#0D H29EE=HD2 PH2A07=DD 7H2A0F HUB 
I#2A28ANAD MW2ASTEHID IN2ATCERDD 742A44=NDA 
#2B3B=#02 


SWARM: ?RTIGGERDB PNSOFLTHDL IHTUFT EROL MWELIR=HIT 
HYPER: 7#35BAx#08 


P=t35CS: CISRRIBES s LDAKBOBL ; ANDORLOTBNEHSSDD + DECÉ7 OG LDAR7 DO 
CCMPS#1D: BNESSEC : BEGHISEASLDARBOLI ; ANDAG 
LBNERSSEC:LDY#7 Os CPYAHBB + BEONSSEC 

P=k3BES3 CLDASHDO; STANBOLE: RTS F LDANBODI FANDD 1: RTS 
P=4T557 5 EJSRHSBEE 5 BNENSSDE 


sD-ASTEROIDS: 
REGEL NR. 138 ?R=H7OIIF?S=2SE. sees e sense eenen en 
REGEL NR, 168 2Re#701IF?S=247 
REGEL NR. 158 ?7Re#7BHIF?S=251 
REGEL, NR. 1E® PR=HTDIIFIS=LIS, ossen eeen ennn eren 





SNOOKER: !'#WIE2E=HFAFGFOFD 'HIE2A=#LDO4DED2 
REGEL NR.6520 Tm?#DOO1 1 


apanage hek nok en: 


Tot siot nos een opmerking over de snelheid van sommise 
speien. Meestal wordt hiervoor Cin machinetaal) selinkt 
naar een subroutine op #FEGE. 

“In deze subroutine wordt de schrijfstraal sesynchroniseerd 
waardoor er geschreven wordt zonder storing in beeld. 

Door deze link naar #FEG6 te verwijderen wordt een spel 
meestal veel sneller, NIET ALTIJD! !. 

Dit saat wel sepaart met ruis: wat soms hinderlijk is. 
Hieronder staat een prosranmatje wat deze link verwijdert: 


18 FOR I=#2388 TO #5CBO 

20 IF 2I=#20 AND I?1=#E6 AND I2etFE GOSUB. a 

32 NEXT I 

48 END 

SBa PRINT &I' 

63 II=#EA: IPIER: I?2=HEA 

78 RETURN 
Atte links naar HFEGE worden nu omsezet in “NOP“, ais het 
nu te snel wordt kun ie voor enkele van de vitseprintte 
adressen (vit bovenstaand prosramma) invoeren: 
P=#ADRES 5 UJSRHFEEE 


Met sen beetje experimenteren kom je er wel vit. 


SUCCES! ! 
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Voor een aantal spelletjes zijn in AN reeds aanpassingen beschreven voor een 
joy-stick aansluiting Echter deze aanpassingen werken alleen als slechts 1 
joystick aangesloten is;d.w.z. de gemeenschappelijke leiding ligt aan massa 
en niet aan pen 1 van IC 26 „Daarom dit artikeltje voor de mensen die hun 
joystick in de 2 sticks versie aangesloten hebben „Ik bespreek natuurlijk 
enkel de programma's die ik zelf heb . Naast een aantal programma's uit de 
oorspronkelijke artikels van Jan Wijnen in AN zal ik ook nog een reeks van 
andere spelletjes bespreken,die ik zelf omgebouwd heb. 
ACORNSOFT,SNAPPER:werkt goed zoals beschreven in AN 1,'83 blz.51 
ACORNSOFT,INVADERS:werkt goed zoals beschreven in AN 2,'83 blz.39 
ACORNSOFT,BREAKOUT&SPACE ATTACK:zie AN 3,'83 blz.S1 
ASTROBIRDS:dit is een andere versie dan die uit AN 3 ‘83 blz.5l . Oorsprong ia 
mij onbekend. Aanpassingen: 
?#31DE=8 2#31F1-0 MÁIIFS=2 É3256=l PAI25G-1 
A&F SOFTWARE, CYLONATTACK: 
23369216 4337724 ?#3389=-8 2#339B=2 2ÉZIAE=-ÁFO 
2Á336l=fFO ÁI3GF=ÁFO PÁIIBlefFO IÁ3II3fFO 
ACORNSOFT , DODGEMS : 
?#3369=10 7Á336B=10 7Á3374=2 2#3496=1 ?£3499=1 
MARTIANS: Oorsprong onbekend; 
2#3813=2 2f380B=0 ?#3817=0 
A&F SOFTWARE, PAINTER: 
“ PÉ2EAB=#90 242E53=1 IÉ2ESA=#IO ?ÁLEG2=A1O PÁ2EGI-ÁIO WÉ2E71=4 
742E78={90 ?Á2E8O=2 2É2EB4=ÁIO ?#2EBC=8 
MICRONANIA,OMEGA MISSION: het stuk D47&- hoeft niet gewijzigd.Voor het eerste 
stuk: ?#30DF=#10 ?£30FF=4 2#3184=1 243187=1 2£3196=1 243193=1 
2#3321=1 2#3324=1 2#3347el IÉJOIE=#27 PAZOBE=ÁLS 
WARLORDS:oorsprog onbekend, 
2#3509=AFO PA3S1l=k1O PA3517= HFO PAISIF=4 PÁLSCTAAFL 2Á3S2F #10 
2#3538=4 
STOCKCAR: oorsprong onbekend, 
2f3002={FO P/3003=fF1 743004=8 2#3005=8 PÁ3DOG=ÁFO ?A3007=fF 1 
?43008=2 243009=2 ?2A3OOA-AFO ?#300B=ÁF1 ?#300C=A10 PÉ3OOD=#10 
?Á3OOE=#FO ?A30OF=fF1 ?#3010=4 2#3011=4 
HICRONANIA, PUCKMAN: 
243217=29 7#3228=43 743239=19 Á32dA53G 
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RK CEMENT: 
13OIF?fB4=19; Kal 
14OLF?/84239; XeXel 
180I1F?#84=9; GOTOg 
SHOOTOUT { COWBOY) : oorsprong onbekend. 
7Á380F={FO 7Á3817=f1O PÁZELB=KFO 7A382Iad PAIR2I=AFO 7ÁIB2F el 
2ÉI8IJakFL 7AISIBef1O PAIBIF=l IÁ3B42=4  VÁIBAGeAFl 7ÁIBAEnl 
FROG JUKP (FROGGER) roorsprong onbekend. 
2Á36AT=39 ?Á3GAB=29 PIGAF=19 TÁIGBIMA9 
ACORNSOFT , SNOOKER : 
PAIBLEmAFO MÁ3G2T=fFO PÁIGLENAFO TÁ3GLInAFO TAIG2A=2  ?AI62B=B 
IÁ362C=4  PÁ3GAD=flO 
9520TuTfBOOLE1 
ACORNSOFT, ASTROIDS : 
7Á2EO1mfFO 
Ga dan naar tekstspace #82 en type volgend progranma in: 
1GDIMLLA;F , IuTO4 ; LLI=#FFFF ;N. 
29F.Ie1TO2 
30P=k2E8D; [ 
APLDAABAPI ; LSRA ; STAËTF ; BCSLLI ; JSRAI15A 
SÛ:LL1 LSRÁ7F ; BCSLL2; DECÁ39AG 
65:LL2 LSRÁ7F ; LSRÁ7F ; BCSLL3; INC#39AG 
70:LL3 LDAÁ39AD; ANDÒ #IF ; STAK3DAG; LDAPG; STAËIS ; LSRÁTF ; BESLLA 
SOLDA9 AFF ; STAÁSS ; LDXOJ 
9B:LL4 ISRÁ3Z34 
109) 
11GN.;E. 
Laat dit programma runnen . Nu is ASTROIDS klaar voor gebruik met 
Joystick . Het zojuist ingetypte programma {8 nu niet meer nodig. 


Alle vermelde veranderingen zijn bij mij in gebruik en werken perfect.Indien 
U de veranderingen zorgvuldig overneemt (onder de voorwaarde dat ik ze hopelijk 


zorgvuldig heb neergeschreven) dan zouden ze ook bij U moeten werken. 
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ATOM POWER PLOT TING 


Onlangs kreeg ik uit ons drukwerkorchief het artikel"ATOM PLOTTING POWER" 
in honden.De grafische mogelijkheden die door dit programme geer 
den leken mij zo veelzijdig dot ik het niet kon loten om hierover een or- 
tikel te schrijven opdat iedereen in de club zou weten welke de mogelijkhe- 
den zijn die dit programma biedt. 
Het geossembleefde programma kan vrij eenvoudig in een basic programme ge- 
bruikt worden.Het programma kan individuele shopes of groepen van shapes 
plotten,wissen of verplaatsen en dit in elke grafische mode.Door gebruik 
te maken van de kleurencommando's kunnen de shapes in verschillende kleu- 
ren of tinten geplot worden, 
Het programma maokt gebruik van array's waarin de elementen van n shape 
en de eigenschappen ervan worden opgeslagen.Men hoeft dus maar juist de e- 
lementen van een bepaalde array te wijzigen om uw eigen shapes te creëren, 
Het programmo maakt gebruik van volgends orroy's. 

XX w de x-coördinaat op het scherm. 














YY = de y-coördinaat op het scherm. 
AA = de eigenschappen van een bepaalde shape. 
DD = bevat de plotpunten van een shape. 


U kunt maximaal 256 shopes tegelijkertijd gebruiken.Hiervoor hebt U + 5K 
ram nodig. In de praktijk volstaat men met 10 à 20 shapes.net aantal sha- 
pes dot men wilt gebruiken moeten serst benoemd worden. 

Voor één shape is de benoeming de volgende, 


10 DIM DD(1) „aa(O) „xx{(0) „YY(O) 
Nu onze shape tabel, Deze bestoot uit 64 plotpunten;gerongschikt in acht 


rijen van 8 bits, Veronderstel nu even dot we de tekening van figuur 5 
willen opslagen in on shapetabel.Dit is een typisch voorbeeld van een in= 


vader. U ziet duidelijk de opbouw van 8 X 8 bits. Of beter gezegd 8 bytes. 





Fred. De donkere velden worden binair 7 de undere velden 
AN NL worden nui. Kadien zetten we deze om in Hexadeci- 
maal.Voer onze invader wordt dit: 
BINAIR: HEX. 
00011000 18 
00111100 3C 
o1t+o0110 65 
41441444 FE 
1100001 1 C3 
+0G00OOT 81 
10000001 81 
#1 23486 7 11000011 c3 


Deze tekening slaan we op in arroy DD en wel op volgende manier. 


20 DOO) = KFF663C18 
30 DO(I; = fC39181C3 . 
Denk eraon dat de elementen von een array omgekeerd worden opgeslagen in 


een orray.De plaots op het scherm wordt bepoold door de woorden opgeslagen 
in de orray's XX en YY. Deze wuarden zijn absolute woarden.Ous altijd ge- 
rekend vanaf het punt van oorsprong links onderaan, 


40 Xx{0} 20: YY(G) =D 
Geze plaats is dus de ploatsbepoling van het Llinks-beneden element von uw 


shope. 
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Zover zijn we nu.Nu îs natúurlijk de vraag. Wat kunnen we hiernu allemaal 
mee doen? wel heel wat. 

Wot we doen wordt bepaald door de inhoud van het ove nkomstige element in 
array AA. leder element bestaat uit 4 bytes.Iedere byte heeft zijn eigen spe- 
cifieke funktie. Ter verduidelijking worden de bytes als volgt benoemd. 





msb ìsb 


MAGNIFY |_CHAIN SMAPE | PIXEL BLOCK STATUS 


Eérste byte M: of de Most Significant Byte.Deze bepaalt de afmetingen van 

uw shape op het scherm.De eerste vier bits bepalen de ver- 
gretingsfactor in de x-richting.De laatste 4 bits bepalen de vergroting in 

de y-richting.VB, M=O De shope wordt geplot zonder enige vergroting;d.w.z. 
elke bit van uw shape komt overeen met één punt op het scherm. 

Nemen we Maf11 dan beslaat elke bit van uw shope 2 punten op het scherm. zo= 
wel in de x= als in de y-richting.Nemen we Ma {FO don beslaat elke bit 16 
punten op het scherm ín de x-richting en 1 punt în de y-richting.Het beeld 
wordt dus uitgerokken in de breedte. 

Tweede byte CsWordt gebruikt in combinatie met de chain-bit van de status- 
byte en dit om shapes onderling te koppelen.Veronderstel even 
dat shape 1 gekoppeld is oan shope O.Telkens nu shope 1 geplot of gewist wordt 
of verplaatst; gebeurd dit eveneens met shape O.Dit is zeer gemakkelijk won- 
neer U tekeningen wilt gebruiken die niet in één shape kunnen geplaatst wor- 
den.Bijvoorbeeld een tekening van 18 X 8 punten.Ooor ze onderling te koppelen 
worden zij als één shape behondeld.De waarde van C is het shapenummer dat ge- 
koppeld is en kan variëren van O tot #FF. 

ve 














Shape + is onafhankelijk Ce OO 
Shape 1 is gekoppeld oan 2 Ca O1 
Shape 2 is gekoppeld aan 3 Cm 02 


Wordt nu shape 3 geplot dat zit het programme can de inhoud van byte C in 
ons geval O2 dat shope 2 ook moet geplot worden.Bij het plotten van shape 2 
ziet hij in de C-byte van shape 2 de waarde één staon zodat shape 1 ook ge- 
plot wordt.Er worden dus 3 shopes geplot door één commando. 

Derde byte N:Bepoalt welke shape geplot moet worden. 

Als byte N a OO don wordt de tekening geplot weïike zich in 

de elementen DD(o) en OD(T) bevindt. 

Als byte Ne Of dan wordt DO(2) en DO(3) geplot 

Als byte Ne O2 dan wordt DD(4) en DD(S) geplet 

Men kan dus door eenvoudig de woorde van byte N te veranderen ven tekening 
veranderen.Alle ondere bepalingen van de vorige shope blijven gehandhaafd, 
Vierde byte 5: of de STATUS byte. Hiervan heeft elke bit een ofzonderlijke 


functie. 


MSbit LSbit 
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We zullen nu iedere bit van het status-byte afzonderlijk behandelen. 


D7: indien 3 :Dan worden de punten van uw shape die binair de waarde O hebben 
niet geplot.ve bestaande achtergrond blijft dus gehandhaofg.Hij 
is transparant. 


Dé: indien 1 :dan worden de punten geset tijdens de tlyback en zal er geen in- 
terferentie zijn op het scherm.Dit goot dan wel ten koste van de 
snelheid. 

DS: indien 4 :0on worden de huidige uit te voeren plotopdrachten ook uitge- 
voerd op de shape die aangegeven wordt door byte C . 


D4 en D3 bepalen de voorgrond, En wel op volgende wijze. 


id dan: 


tag 








© kel clear pixel 
kel 3 set pixel 
hd ke) invert pixel 
1 1 clear pixel 
02: indien 1 :don wordt de luidspreker oongestuurd teïkens een punt wordt 
geplot. 
0% en DO bepalen de achtergrond. En wel op volgende wijze. 
indi gan: 
o clear pixel 
o set pixel 
1 invert pixel 
1 clear pixel 





N.B: onder de voorgrond verstaan we die punten welke binair 1 zijn. De ach- 
tergrond zijn die punten welke binair O zijn. 


Hebben we éénmaal uit deze genschappen gekozen.Dan dienen we ze cp te slaon 
in array AA.Bijvoorbeeld, We kiezen voor een normale afmeting {MaQ),ongekop- 
peld ( C=0O),de te plotten shape bevindt zich in shape O (NeCO).De bestoande 
achtergrond moet blijven.(D7 =1),geen interferentie (D6a1),geen koppeling (D5 
= O),de voorgrond moet geset worden (D4=O),(D3et),geen geluid (D2=O),ze ach- 
tergrond blijft clear, (D1=0),(00 =O). 
De stotusbyte heeft dus binair de volgende woorde. 

S = 11003090 binair of hex. CB 
Het eindresultaot wordt dus, 





50 AA(O)=#OOOOOOCE 
Nu hebben we nog de keuze van plotten. 


OPERATIE SOURCE OBI . VARIABLES. 

A Xx Y 
Plot 'n shops M+O #2920 shape n° 
wis ‘'n shape M+3 {2923 shape n° . 
move 'n shape Me6 „2926 shape n° x-richt. y-rient. 


plot pixels Med „29e blok n° x-posit, y-posit. 
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Zoals we reeds besproken hebben moeten we om een shape te plotten eerst de 
arfreys AA,DD,XX en YY benoemen.De shape nummer plaosten we nu in de basic 
voricbele A en we linken noor #2920, 


69 CLEAR 4 

70 A=O; LINK {2920 
Om een bepaalde shape te wissen in het belangrijk te onthouden dat dit en- 
kel kan gebeuren indien bit D7 van het stotus-byte is geset.Ous transparant 
en indien de achtergrondsbit de eigenschap clear heeft m ekregen,Om nu 'n 
bepoalde tekening te wissen plootsen we het shape nummer in de variobsle A 
en linken naar 2923 


80 A=O;LINK #2923 











Nu de movs-routine.Een geplotte shape kan verplaatst worden; of beter ge- 
zegd gewist en opnieuw geplot op een andere plaats,De nieuwe positie wordt 
bepoold door de waerde van de vericbele X en de variabele Y.Deze waarden 
zijn verschilwaarden t.o.v, de witgongspesit 
We plaatsen dus de Shope nummer in de voricbele A.Oe afstond die de tekening 
moet verplactat worden op de X=as in de varicbele X en de afstand van ver- 
plaatsing in de Y-richting in de variabele Y‚Vervolgens linken we naarg2926. 
B.V.: om shape O 10 posities opwaarts en 20 posities naar rechts te ver- 
plaatsen geven we de volgende opdracht, 


90 Ya1O;Xe20iAsO; Linkf2926 


Merk op dat de waarde van X en Y zowel positief als negatief kunnen zijn en 
dot de ove nkomstige waarden in de XX en YY orroys worden aongepost, 
Verder hebben we nog een mogelijkheid om een bepaalde shape te plotten zo- 
als de plotpunten in werkelijkheid zijn: dus zonder enige optie.Dit gebeurd 
op een absolute plaats. Dus de ploats gerekend vonof linksondsraan van het 
beeldscherm.we plaatsen het shopenummer in de variabele A, de horizontale 
positie in de variabele X en de verticale positie in de variabele Y en we 
linken naor Á2929. 














100 Xm5O; YmSO; AnO: LINK f2929 


U ziet de mogelijkheden zijn enorm.Met behulp van deze routines een spelie- 
tje invaders schrijven in niet zo ingewikkeld maer. 

Diegenen die interesse hebben voor dit programma vinden de listing ervan 
in YOUR COMPUTER van JUNI 1983. Bovendien bevat het artikel ook een demon- 
strotie programma. Het progromma is vrij lang le 3.7K zource).Geassembleerd 
slechts 592 bytes.Het demonstratie programma besloot 3,2K ram. 

Diegenen die de moed niet kunnen opbrengen om dit ollemoal zelf in te tik- 
ken (met de mogelijk kans op fouten) kunnen dit programma op bandje ver 
krijgen via ons bandjes-orchief, Het bondje bevat zowel de source-code ols 
de object-code + het demonstrotieprogromme. 
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18 PROGRAM GFILL. STAT 

28 

38 DIM FFX9, RRS 

35 FOR I=0 TO 59;FFI=939 iN, 

48 PRINT $215P=A:GOSUB a 

S2 PRINT $6 ;Pz=R;GDSUB a 

68 $T="GFILL" 3TaT+LEN(TÒ 

78 ?T=FFQ/25E0B0 TI i=FFOA2SEIT? LehEDI TeT+2 

88 A=P;T!t=A 

98 END 

198 

118 WERKT IN ALLE GRAFISCHE MODES, OOK IN DE 4-KLEUREN MODE 

120 ER KAN ALLEEN IN DE NIET-AEHTERGRONDKLEUR INGEVULD WORDEN 

158 

14aX=W573 YetS2; BEI CekS1 

158 Sz#32; VERI Ss Wet I4 

160 RROZASS ; RRI MIGE RROSKID; RRI=HIA 

170 

180:FFO \stitt Kommando 

180 JSR#CEBCIJSRHC2T1 5 JSRHCSBCIJSR HCLEG 

228 LDAE2S, XFORARTZ, X5ORAKAL, X5 ORAK2A, X5 ORAHSE, K3 ORARL2, X 

238 BNE FF& 

240 LDA#I4, XISTA X 

258 LDAWIS, X:STA Y 

260 JSR FF1 

278:FF4 

288 DECHUÁ : DECHD4 

238 JMPRCSSB 

308 

SIOFFI \entry fitt 

328 

338 LDAAG:STAESBSSTAHSD:LDA X+STARSAILDA Yi STAHSC 

2468 

350 LDA92:STAKSEIJSR FF39 \bepaat adres door pixel te invert, 

368 LDYAEGILDALHSF), YISTA B \onthoud aeinv.byte 

378 JSR FFSS:LDYAOILDACHSF), Y:CMP B5BEG FF2 klaar als buiten s 
cerm 

zE8 STA B 

330 LDAAG:STAKSEIJSR FFSA3LDA BiLDYDO: CMPCHSE) » Y 

498 PHP3STACHSF), Y:PLPIBNE FF2 klaar als pixel al seset 

418 

420 LDA9@; STAKSAI STANSC:LDAD2ISTAHSEIJSR FFSS:IJSR FFSS bepaal 


current cotor 
438 LDYSBILDACHSF), YISTA C 
448 STY#&SEIJSR FF39 ciear pixel 
458 LDYSOILDACHSF), YISTA B 
460 LDAS1ISTAKSEIJSR FFIS set pixel 
478 LDYABILDACHSF), YICMP Bi PHPELDA C5STACHSF), Yi PLP: BEG FF2 
pir \klaar als current color = background cotor 
50% LDASDISTAS \stackpointer op G 
S1@:FF20 
528 JSR FFS 
538 LDA#BROIIBMI FF2i stop als shift insedrukt 
S4@:FF2 
550 RTS 
SEH FF21 
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578 LDA RR2IDME FF22 
568 INC XIISR FFSIJMP FF21 
5e8:FF22 
600 JSR FFS \kleur pixet 
618 LDA RRIJSTA VILDA RRIISTA W 
628 BNE FF23 
658 DEC YIJSR FFS13INC Y 
G4BUFF2I 
650 LDA RR1IBNE FF2á 
6EZ INC YIJSR FFSIIDEC Y push x:y+i 
S7U1FF2ú 
588 LDA RROIBNE FF25 
698 DEC XIJSR FFS 
708 JSR FFS 
718 LDA RRIsBEA FF26 
728 LDA VIBNE FF265 
758 ING V 
748: FF 2E 
758 LDA RRIFBEQ FF27 
7EG LDA WIDNE FF27 
778 INC W 
780:FF27 
798 LDA V1BEQ FF26 
805 LDA RR1IBNE FF28 
818 INC YIJSR FFS1 push x:y+1 
820 DEC YIDEC V 
835 FF28 
8458 LDA WIBEG FF29 
855 LDA RRIIBNE FF29 
' 869 DEC YIJSR FF31 eumh xry-1 
878 INC YIDEC W 
88e FF29 
8398 JMP FF24 
00: FF25 
910 LDA SIBEQ FFSO klaar als stack lees 
929 JSR FF321JMP FF2@ \pult Ke Y 
31 FFID 
348 RTS 
950 \einde body 
9608 
I7Ö1FF31 \push Xe Y 
385 LDX BILDA XFSTANGLBO, XFLDA Vs STANZIO1, X3 INKFINKISTA S 
393 CPXAKEB max stackhooste 
1889 BES FFISIRTE 
1018:FFI2 \puil Xe Y 
1029 LDX SIDEXIDEXILDAKO1O1, X1STA VILDASOLOG, KISTA XIGTX S 


1838 RTS 

1040: FF3S PLAIPLAIJSRIFDIAIJBROFDIAIRTS piep en stop want stack 
vel 

105OiFFIE 

1060 

1878 \hulproutines voor inkleur routine 

18B0IFFS \set pinel XK, Y 

1838 LDRADISTARSBISTAKSDILDA XISTANSAILDA YISTANSC 
1109 LDAS1ISTARSEIJMPCHSFE) 

1118 \einde set ciket routine 

1120 
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1138:FFS \test & pixels rond X:Y 

1148 LDA X;STA#SA;:LDAAD:STAKSBISTA RRI 

1158 LDASISCLCHADE Y:STAHSC:LDASDG ADCAEISTARSD \boven 
1159 LDAZZISTARSEIJSR FF39 \bepaat adres 

1178 LDYABILDACHSF), Y:STA B \onthoud seinv. byte 

1188 JSR FF3S:LDYABILDACHSF). YsCMP B3BEQ FF16:STA B 
1188 LDAQ0:STA#SEIJSR FF3S;LDA BiLDYAOCMPCHSF), Y:BED FFE 
1208 STACKSF), Y 

1210:FF1E LDAA1GSTA RRI 

1228:FF6 

1238 LDA X;STA#SA:LDAAB:STAHSBISTA RRI 

1248 LDA Y:SEC:SBCA1:STA#SC:HLDAADs SBCAD:STAHSD \onder 
1253 LDAA2ISTA#SEIJSR FF39 \bepaal adres 

12E@ LDYSB:LDACHSF), Y;STA B \onthoud seinv. byte 

1278 JSR FFSSILDYAB:LDACHSF), YsCMP BiBEG FF17:STA B 
1289 LDASO:STASEIJSR FFSS:LDA B:LDYADsCMPCESF), Yr BED FF7 
1298 STACHSF), Y 

1300:FF17 LDASISSTA RRI 

1SiB:FF7 

1328 LDA Y;STA#SC:LDA9BS STARSD:STA RRA 

1330 LDA X;SEC;SBCSi:STASAILDADO SBCHTISTARSB \l inks 
1340 LDAS2:STAHSEIJSR FFZ9 \bepaal adres 

1358 LDYAB:LDACHSF):Y:STA B \onthoud seinv, byte 

1368 JSR FF39:LDYSBILDACHSF), Y;CMP BiBER FF1B;STA B 
1378 LDASG: STAKSEIJSR FFSI:LDA BiLDYAOICMPLHSF), Y:BEG FFB 
1388 STACHSF): Y 

1390:FF18 LDABIISTA RRO 

1408: FFS 

1418 LDA V;STA#SCILDADOHSTAHSDISTA RR2 

1420 LDA X+CLC3ADCAL :STA#SA:LDAIGSADCHAISTAHSB \rechts 
14358 LDAA23STAESEIJSR FFI9 \bepaal adres 

1448 LDY@BILDA(HSF), Y;STA B \onthoud seiny. byte 

1450 JSR FFSS:LDYAG:LDALHSF), YHCMP B; BEG FF19;STA B 
1468 LDAAG:STAHSEIJSR FF3S;LDA BiLDYOU:CMPAHSF), YIBER FFS 
1478 STACHSF), Y 

1488:FF19 LDABISSTA RR2 

1490:FF9 

1588 RTS 

1518 \einde test 4 pixels rond X-Y-routine 

1528 

1S30:FFI9 \plot pixel 

1548 JMPCHSFE) 


15501 
1530 erven 10 PROGRAM DEMO GPILL 
1578 SD CLEAR 3 

49 COLOUR 2 


53 MOVE 20,13 

6@ DRAW 20, 98:DRAW 180, 90 
78 DRAW 108, 18:DRAW 20, 10 
BO MOVE 40, 10 

30 DRAW 40, 82:DRAW 50: EZ 
189 DRAW 80, 20:DRAW EO, 20 
119 DRAW 6, 30: DRAW 65, 30 
128 DRAW 65, 25;:DRAW 6D, 25 
138 COLOUR 1 

140 GFILL 41, 30:REM STARTPOSITIE INKLEUREN 
1SA END 
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SYMBOLISCHE ASSEMBLER 


Een sunbolische asseabler is een assendler waarbij de 
labels en andere varisbelen moden bestaan uit een naan van 
t of seer letters en/of ciJfers te beginnen met een letter, 
Het is duidelijk dat zo’n assenblereprogramma heel bete- 
kenisvol kan zijn: ENTRY, LOOP» PORTB», CRLFs TEXTFTR 
zessen meer dan LLO» P-Be #B0O1r &FFEDr #12. Het gemis var: 
deze faciliteit in de Atom-assembler lijkt klein: maar is 
dat bij langerer ingewikkelde erosremma’s met veel inter- 
actie zeker niet. Een toolkit (losse routines) kan nos heel 
soed met de Aton- assembler aarsemaakt worden, maar bij bv. 
eer database of intensief gebruik van I/O wordt het al heel 
snel behelzen. Een sumbolische assembler is dus gewenste: 
maar hoe kosen we eraan? 

De makkelijkste manier (principieel dan!) is het uitbouwen 

van de Atom-assemblerr waarbij Je meteen nod meer facili- 

teiten kunt toevoegen. Or dit moment (inmiddels 4 maanden 
later) is een derdelijke assenbler verwezenlijkt. Doarbi 
is sterk gekeken naar de KIAL-standaard (MTAL=MOS Tech- 
noloss Asseubly Lansduager zie verder ‘Prodvrammins the 

6502", Rodnaw Zaks) in conbínatie met de Acorn filosofie, 

Een: dreer vit de wijzidinden: 

1. Labels bestaan uit 1 of meer letters en/of cijfers te 

…__ besinnen aet een letter er voorsfsesaorn door een dubbele 

kunt (3) 

NB1 *A" mad niet gls label gebruikt wordens is voor- 
behouder, van de accu 

NB2 aen letter is een hoofd- of kleine letter 

NB3 de ‘single avate® (’) is toegestaan tebev. een 
beteru leesbaarheid bv, NEXT/'CHAR i.p.v. NEXTCHAR 

NBA de labellenste is technisch ‘bererkt® tot ondeveer 
250 karakters, De buffer staat or $26E[, zodat 64 
zander rroblemen detruikt kunen wordet. Wie hier 
niet seroces san heeft mad het zedsen. 

NYS eer Le lanae Iabellenste genereert geer foutmelding 
Cin praktijk niet relevant) 

2. Rinsire constanten zijn toegestaan, voorafdessen door de 
Procent (2) bv. LDA @21010 O101 is hetzelfde als LUARHAS 
fsraties zijn facultstief, leidende nullen ook) 

. Er zijn ‘directives* toedevoesd 








+BYTE V depeve IF TPaViP=Pt1iC 

WORD V ierove JiiP=ViPEPH2IC 

.DbYTE V í ve JÎTPaV/256iPTisVZ256iFeFtziL 
+ASCHI/TEKST/ ders Ji SP= "TEKST" SP=P4LEN(PD HL 

PAGE LePove JEPRINT $123C 

«EKIP N dePevs JÔFOK Ie1 TO NEPRINT "FNEXT ISL 
END dePeve ISNEXT IEPRINT S6SEND Oste, 


+SCRON er, „SCROFF regelen het scherm 

«FKON et, ,PKOFF regelen de Printer 
4. Karakter expressies 

CH is vervanger daor ’ bv. LU @'> ierev. LEIA @CHP>* 
5, Eter exrreizius 

Be “obdeit cue rointer” wordt bescald et: celestie van à 
SIG, KN 1-4 
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6. Hish en low bute srecificsties 
> geeft het high byte van de exeressier < het low bwte 
bv, „ADRES=#1234 


LDA GADRES> ' is hetzelfde els LDA @#12 
LDA BADRES+I< is hetzeifde als LDA 2435 
LDA GADRES>+1 is hetzelfde sle LDA @#13 


af als LDA GADRES+#100> 

7. Out of range detectie 
Aan het eind van de vertaling wordt er een melding dede 
ver: als er een ‘out of range" heeft plaatsgevonden (cok 
bi «SCROFF) 

8. Er wordt een waarschuwing gegeven als een label of vari- 
abele niet gedeclareerd is of als deze meerdere malen 
wordt gedefinieerd 

9. leclarstie van een variabele gebeurt met de punt (…) 
bv, «SCREEN=#B000 

10.Er worden "echte" foutboodscharren gegeven 

1i.Er wordt een melding degeven els een ‘branch* near een 
andere rasina Plastsvindts ievem, de extra clock eycle 

12.Normaliter zijn het scherm en de printer tijdens Pass 1 
uit, het scherm aan tijdens pass 2. Andere instellingen 
‘kunnen wet de directives verwezenlijkt worden. Fideris 
rass 1 is de printer altijd uit. 


He hier beschreven sssembler zal als RELEASE 0,0 worden 
Vvravdegdeven vanaf 25/26 november. Deze versie is in de 
praktijk setest (dat klinkt leuks maar betekent eigenlijk 
det hij niet 1002 foolproof isr maar slechts onseveer toch 
zeker meer dan laten we zeggen iets in de buurt van pak ’m 
beet #84), Eventuele fouten zullen zo mogelijk in RELEASE 
0.1 worden verbeterd, Ondertussen wordt de basis gelesr! 
voor RELEASE 1,0 met: „OPTION en „TITLE, mogelijkheid tot 
otnemen in een Bssic programma (zoals we dat nu dewend 
zijn), sesorteerde symbol table en een faciliteit om de 
object code elders or te slaan, 





Uitleg van de symbolische assembler. 


De symbolische assembler lijkt sterk op de Atom-assembler ín die 
zin dat de syntax hetzelfde is gebleven, Eén faciliteit moet de 
buidige versie vooralsnog missen: de mengbaarheid met Basic. Dit 
houdt o‚m.in dat macro’s en "conditional assembly" ook niet meer 
mogelijk zijn. We krijgen er echter iets belangrijks voor terug: 
de mogelijkheid om getallen en labels te representeren daor een 
zgn. identifier of symbool. Deze bestaat uit een letter, gevolgd 
door een of meer letters en/of cijfers. Voorbeelden hiervan zijn: 
I. ALPHA, P435, J4KS5, HOUSEHOLDERTRIDIAGONALIZATION. Als 
uitzondering mag tevens de "single quote” (’) gebruikt worden als 
“jeesbaarheidskarakter". Dus: NOT"A’CHAR i.p.v. NOTACHAR, Een 
symbool mag bestaan uit 64 karakters, zodat 
DONAUDAMPFSCHIFFFAHRTSMATROSENUNTERDECK en 
DONAUDAMPFSCHIFFFAHRTSMATROSENAUFDECK nog onderscheidbaar zijn, 
wat bij andere systemen niet altijd het geval is. 

We kunnen nu een assemblerprogramma leesbaar maken door i.p.v. de 
labeis LLO, LUI, LL2 enz. suggestieve namen te gebruiken zoals 
ENTRY, PORTi, TIME2G0. En wat te denken van CMPOERROR94 en JSR 
PRINT’ 1” SPACE. 
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Aangezien in het bronprogramma geen Basic-stateaents mogen 
voorkomen, kan dit programma ook niet geRUNd worden. In plaats 
daarvan is er een nieuw commando ASSEMBLE dat het programma in de 
huidige text space assembleert. Dit programma wordt net de 
normale editor aangemaakt en bevat voornamelijk datgene dat 
gewoonlijk tussen vierkante haken staat. 

De eerste regel bevat meestal een commentaar met de programmanaam 
en in de tweede regel wordt bijvoorbeeld bepaald waar de 
vertaalde code terecht moet komen. Dit gebeurt met & = #XXXX, wat 
het equivalent is van DIM P(-i) of P = WXXXX. 

Het begin kan er dus zo uitzien: 

1O \ PROGRAMMA BLOCK MOVE 

20 £ = #3000 \ vertaal naar #3000 


Rierna zullen i,h.a. enkele symbolen geïnitieerd worden: 
30 „FROM = #70 

40 „UNTIL = FROM + 2 

50 „TO = UNTIL + 2 


FROM krijgt de waarde #70, UNTIL de waarde #72 en TO de waarde 
#74. Zo hebben we de beschikking over drie pointers die we met 
FROM en FROM+1 enz. kunnen aanroepen. 

We kunnen i.p-v. pointers ook adressen en getallen initiëren: 


60 „WRCH = #FFF4 
70 „BELL = 7 


We kunnen nu in assembler programmeren zoals we dat gewend zijn, 
waarbij we deze symbolen kunnen gebruiken, b.v. aan het eind van 
het programma: 


2000: SLUIT’ AF LDADBELL 
2010 JSR WRCH 
2020 RTS 


Bij het initiëren van symbolen moet bedacht worden dat er enkele 
namen gereserveerd zijn voor andere doeleinden. Deze namen zijns 
AYTE, ASCII, WORD, DBYTE, PRON, PROFF, SCRON, SCROFF, END aen 
OPTION. Het ís dus niet toegestaan om b.v. „BYTE um #AA te 
schrijven. Deze 10 zon. directives geven aanwijzingen aan de 
assembler om iets speciaals te doen, Zo zorgt „.PRON ervoor dat de 
printer aangezet wordt en .PROFF zet deze weer uit. Deze twee 
werken alleen tijdens de tweede pass. .SCRON en .SCROFF bedienen 
het scherm. Worden deze niet gebruikt dan is het scherm uit bij 
de serste pass en aan bìj de tweede pass. „END geeft aan vaar het 
bronprogramma eindigt en „OPTION doet voorlopig nog niets. 

‚BYTE leest 1 of meer waarden in en plaatst deze 
achtereenvolgens in het geheugen op de plek tot waar de assenbler 
heeft vertaald. „WORD leest een adres en plaatst dit in het 
geheugen, low byte eerst. .OBYTE doet hetzelfde, maar nu het high 
byte eerst. 

‘ASCII tenslotte leest een string in en plaatst de afzonderlijke 
karakters ervan in het geheugen. Deze string wordt voorafgegaan 
door en afgesloten met een zelf te kiezen karakter dat niet in de 
string mag voorkomen. Dus .ASCII/TEKST/ en .ASCII"TEKST" zijn 
gelijkwaardig. We kunnen hiermee b.v. de volgende constructie 
maken: 
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„TEXT'END = #EA 

. PRNEXT = #F7DI 
:WAIT" FOR" KEY" PRESS 

JSR PRNEXT 

.„ASCII-PRESS ANY KEY TO CONTINUE 
.BYTE LE,CR, TEXT" END 

JSR OSRDCH 

RTS 


De symbolen LF (Line Feed), CR (Carriage Return) en OSRDCH 
(HFFEZ) worden hier niet geinitièerd, omdat deze standaard 
aanwezig zijn, evenals OSWRCH, ERRVEC, MASK, PORT, RDCVEC, 
WRCVEC. 

Hoewel er nog veel meer faciliteiten aanwezig zijn, wil ik hier 
besluiten met de veranderde constructie voor het initiëren van 
pointers. De bovenshande routine kan b.v. cok zo: 


„PIR = #70 

WAIT’ FDR’ KEY’ PRESS 
LDYORFF \ initiëer Y-reg. 
LDADTEKST> \ high byte van adres TEKST 
STA PTR+1 \ naar #71 
LDADTEKEST< \ low byte van adres TEKST 
STA FTR \ naar #70 

sCHR INY \ verhoog index 


LDA (PTR),V\ lees karakter 
JSR OSWRCH \ druk af 


CMPDCR \ was het CR? 
ENE CHR \ nee, volgende karakter 
RTS \ ja, klaar 

2 TEKST 


„ASCII/PRESS ANY KEY TO COMTINUE/ 
„EYTE LF,‚CR 
„END 


Ik dacht dat ik met deze beschrijving de belangrijkste zaken te 
pakken had. De overige faciliteiten zijn voornamelijk 
verfijningen van bestaande constructies. Ik zal daar wellicht een 
volgende keer over schrijven. 


INGEZONDEN BRIEF ACORN _ NIEUW! Pal 
Hoe maak ik mijn programma leesbaar 





ES) 


Een tesenhanser van het artikel uit Acorn Nieuws '83-5 (les het er 
maar eens naast: pas. 36/39). 


De dat artike! heb ik twee dinsen tesen. 
Ten eerste is het overbodiet 
*BASIC' in zijn Chaar?) pure vorm is SOWIGsO OnSJESChikt om een 


optimaal leesbare listings te seven: de standaard Atom-BASIC doet 
daar noe een schepje bovenop: zeker als afkortinsen worden 
gebruikt. 


Doit een echt soed leesbaar programma in A.N. sezien ? 

Ten tweede is het onsewenst: 
in sen hobbyklub als de onze kan het nooit de bedoeling 
Prosramma's te publiceren/verspreiden waarvan de werkins 
moselijke middelen wordt verhuld. 





Echter de toekomst lonkt. 

Een BASIC prosramma kan redelijk leesbaar semaakt worden semaakt: 
Hoese l -BASIC zeeft nos meer mosel ijkheden daartoe: en 
seheusenruimte wordt steeds minder kostbaar. 

En mensen die eenmaal een soed leesbaar prosramma hebben sezien 
eisen Cterecht) dat alle prosramma's doorzichtis en besrijpelijk 
worden. 

Om de bedreising van on(be)grijpbare Programma's het hoofd te 
bieden, moet de prosrammeur zich aan enkele strikte resels houden. 


1. een prosramma is een opstel. 

doe er alles aan om het idee de kop in te drukken, dat een voltooid 
programma niet net als een opstel een titel; een datum, de naam van 
de auteur ‚ en een besgiralinea over de bedoelins moet vertonen. 
Zonder zo'n introduktie weet de lezer niet wie ’t prosramma schreet 
en waarom. Hij weet niet wat die variabelen allemaal voorstelten. 
De kans is aroot dat hij niet de moeite zal nemen om dat allemaat 
uit te zoeken. Onprettis: want niemand zal je prosramma op z'n 
Jyiste waarde weten te schatten ! 


2. kommentaar iS broodnodis. 

REM betekent REMEMBER: zeker in Atom-BASIC met z'n onmosel 
Dm de variabelen een suggestieve raam mee te seven 
onontbeerlijk de iezer er aan te herinneren wat de diverse 
variabelen hier precies te betekenen hebben. 





Z, Street de Dosen. 


Normate schrijftaal heeft atierlei moselijkheden om de tekst 
leesbaar te maken. 
De prosrammeur moet waar zinvol spaties sebruiken. Zo worden die 


lussen makkelijk herkenbaar. 

Bedenk dat extra spaties nauwelijks extra tijd Kosten, het voluit 
schrijven van de instrukties daarentegen iets meer, maar snetheid 
is pas in het ALLERLAATSTE stadium van belane (en zeker niet op het 
moment van publikatie). 


4. vole zoveel moselijk de losische aans van zaken, 

Je Moet reselmatis je oroeramma kontroleren. Een Klein beetje extra 
W@Tk kan seen Kwaad, 

Gebruik de control-struktuur waar het probleem om vraaet: mede dank 
arm hebber we de beschikkina over DO-UNTIL: WHILE-WEND: 
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CASE-CEND, FOR-NEXT, X1F-THEN-ELSE, 

Bovendien zijn PROCEDURES en FUNCTIES binnen ons bereik sekomen: 
Kies zinvolte namen ! 

Bedenk dat de GOTO niet meer echt nodis is. 

De goede prosrammeur zal de meeste voldoenins smaken wanneer hid 
zelfs na enise tijd zijn DUde prosraama's nos besrijpt. Want als 
his ZELF dat niet meer kan: dan zat niemand net kunnen ! 

Vanaf nu heeft niemand dus meer een eKcuus om een onteesbaar 
prosramma te produceren. 


Rob van Dort 


aan redactie: auteurs en lezers 
kortom: leden van de A,C.C,, 


zeker in het laatste nummer van Acorn Nieuws viel mij oe dat het 
nivo van de inzendinsen overwegend hoos is: op zich zeer 
varheusend: dit betekent dat onze Atom bloeit als nooit tevoren. 

Er is echter een ‘maar': hoe meer soecialistisch of ingewikkeld het 
artikel, hoe Kleiner het publiek. 

Bovendien valt op dat de auteurs ten vrij vast sroepje vormen met 
maar Wwinie ‘nieuwe aanvoer’ 

Wet | réhe schrikt het srote aantal ingewikkelde publikaties lezers 


af om sen sewdon, bijzonder: sezeltig, interessant ett. prosramma 
artikel of erobleem in te zenden. JAMMER !'! 
Naar mijn persoonlijke smaak list de balans nu verkeerd 


We zijn een hobhyklub met bijna 99% teden en ieder van hen moet aan 


zijn 'trekken’ kunnen komen 








Overwin eventuele onnodise en onsewenste schroom en passiviteit en 
taat uw stem horen. Er leven onsetwijfeid ideeen en problemen 
wâarmee anderen uit de voeten zouden kunnen !! 


Rob van Dort 
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MEMORY EDITOR 


Het hier beschreven programma geeft ons de mogelijkheid een her 
cq. ascii=dump te editen, waarbij de overeenkomstige bytes in het 
geheugen ook veranderen. 
U kunt met de cursor toetsen over de hex dump Jopen doch alleen 
over die etukken die data representeren. Als U een bepaald byte 
wilt wijzigen tikt U gewoon de nieuwe waarde in en deze zel in 
beide dump's (hex zuwel als ascii) veranderen. Het programma tent 
et een bepaalde invoer toegestaan is. Met betulp van de 
commando's CTRL-N en CTRL-F kunt U de volgende of vorige 32 bytes 
op uw scherm krijgen waarbij het huidige blok werst in de 
gewijzigde versie weer in het geheugen opgeslagen wordt. Met 
behulp van CTRL-S springt de cursor van ascii naar hex of 
omgekeerd en CTRL-R tenslotte ‘restart’ het programma. beeindigen 
van het programma gebeurt met het antwoorden van '0' op de vraag 
START ADUDRESS?, 
Het programma ie zoveel mogelijk uit subroutines opgabouwd die 
vaar zichzelf spreken. Het machine code gedeelte is nodig om de 
Curbur toetsen te decoderen en te veranderen in de commandu'’s 
CTRL-I, =J, «Kk en =H. 

18 REM MEMORY EDITOR 

2@ DIMTT(6)3GOSUB m 

30 PRINT$12“ sake MEMORY EDITOR seemw"” 1 GOSUB asp.” 

48 PRINT"START ADDRESS "$ESESBSEKBSEI INPUT 5 

45 IF S=8;GOSUB wiP.”" “THANK YOU!" END 

58 Med 

68 GOSUB n 

79 MaisXaDiVaBiP, 8508106185 GOSUB v 

88 DO GOSUB :1U.@ 

SBIREM INPUT ROUTINE 

188 REM CTRL-N: NEXT PAGE 

118 REM CTRL-P: PREVIOUS PAGE 

120 REM CTRL-R: RESTART PROGRAM 

138 REM CTRL-S: KEX{-—)ASCII 

148 LINK TTS:C=?#80 

158 IF Ca#125P, $30$10:G. 40) 

168 IF C=#GEIGOSUB s;S=5+32:G0SUB HIGOSUB bs RETURN 

178 IF C=#t@;GOSUB s:5=$-32;:G0SUB h:GOSUB bs RETURN 

188 IF C=#135:GOSUB c 5 RETURN 

198 IF C=&OB AND Y>OiP.$CiY=Y-14GOSUB dt RETURN 
288 IF Ca#@Br RETURN 
218 IF C=#@A AND Y(7:P.$CtYeY+14GOSUB as RETURN 
220 IF Ce#2A;RETURN 
258 K=Z-M;REM KeS OF 2 
240 IF C(S94:G0T0 328 
258 XmX+1i 

260 IF X=A4 AND Y{(7:GOSUB vs Y=Y+1;GOSUB #5 RETURN 

278 IF Xr XeX- 18 RETURN 
285 FOR Iei TO KiP.$9INEXT I 
298 GOSUB dr RETURN 

SOB KeX+13IF A41 GOSUB v 
Zi RETEERN 
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328 IF COB:GOTO 408 

330 XeX-1 

340 IF XB AND Y)G:GOSUB ptY=Y-1:GOSUB oi RETURN 
350 IF X(05X=X+13 RETURN 

ZEU FOR I=t TO KiP,SEINEXT 1 

278 GOSUB d5 RETURN 

ZEB XeX-1sIF X(@:G0SUB Pp 

338 RETURN 

468 IF M=@;GOTO 519 

4ië IF C#2B OR CG) #7E: RETURN 

428 P,SC* " 

438 Q=!KDEE IHE1=0 

445 P,$1369894355 

450 FOR I=@ TO Xi5P.S3S9SSINEXT I 

468 P,&C 

478 '#DE=Q; XeXti 

488 IF X3 AND Y{73Y=Y+15GOSUB v5 RETURN 
439 IF X3:P.$8tEr Kel 

508 RETURN 

Sië K=B;GOSUB 5 

520 IF C=0: RETURN 

538 GOSUB asK=WiLINK TT5:C=?#60 

549 GOSUB s 

SS IF C=05G0TD 538 

SEB Kieri5+W 

570 Ge! #DEG 2 HEI=DP. $12 

580 FOR I=8 TO 185P.$BINEXT 1 

538 FOR 1=0 TO Xi5P.,S94IINEXT 1 

EUB IF OHIF AND K(#7F;sP.SK5GOTO E20 
E19 P,*‚* 

E28 '#DE=RiX=X+it IF X{43P," “3 RETURN 
630 IF X=4 AND Y{7:G0SUB vrY=Y+1s RETURN 
648 X=X-1sP. $8$8 

658 RETURN 

BEAVREM POSITION CURSOR 

679 P‚’:P=20iIF M=BiP=6 

680 FOR I=@ TO P 

693 PRINT $3 

788 NEXT I 

718 X=8 

728 RETURN 

75OhREM PRINT HEXDUMP 

740 REM BASIS ADRES=S 

758 B=5 

768 P.$T0$10$19%10 

778 FOR I=8 TG 7 

780 A=EIP.EB" * 

798 FOR J=@ TO 3 

503 a=0 £ 

818 IF B?J{#10;P, "B" 

828 P„&BIJ" * 

558 NEXT J 





848 PRINT" * 
858 FOR J=0 TO 3 
868 IF B?J{#20 OR B? H7EIP. ". "5GOTO E82 


878 C=B?JiP.$C" * 
E2B NEXT J 
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ED BeB+4iP," 

908 NEXT I 

S1@ RETURN 

S32OMREM MACHINE CODE INPUT 
338 REM ROUTINE 

S4G FOR I=@ TO S$TTI=-liN. 
958 FOR I=1 TO 2 

958 DIMP-1sP.$21 

370 

980: TT® JSRHFE71:BCS TT@ 

985 CPY A5:BEQ TT1-1 \ IGNORE LOCK 
SBE CPY B14FBEB TT1-t \IGNORE COPY 
S30 CPY D6:BNE TT2 

1008 LDA @#FF:BIT#BABIIBMI TTL 
1018 LDA BB;RTS 

1920:TT1 LDA AI;RTS 

1038: TT2 CPY @7;BNE TT 

1048 LDA AHFF:BITWBDOI:BMI TTS 
1858 LDA 1G:RTS 

1068: TTI LDA 911:RTS 

1070: TT4 PHP:CLD:STX#E4GSTYRES 
1080 TYA:JMPRFEBZ 

1088:TT5 JSR TTO; STA#HB; RTS 
1108J5P. SEINEXT 1 

1118 RETURN 

112BPREM CURSOR POSITIONERING 
1138 REM NAAR VORIGE REGEL 
1148 P,S13$11sP=2E3IF MB Pels 
1158 FDR I=8 TO P 

1168 PRINT $9 

1178 NEXT 1 

1188 X=5 

11398 RETURN 

1200A4REM DELAY LOOP 

1218 FOR I=® TO S:WAIT:NEXT 1 
1228 RETURN 

123BCREM CHANGE MODE 

1248 REM ASCII (->HEX 

1258 P.$30$19$10; MaM: 1 

1268 FOR I=@ TO YiP.SIGINEXT I 
1270 P=18:1F M=@:P=S 

1288 FOR I=@ TO PsP.SS:NEXT I 
1238 FOR I=0 TO X 

1308 IF P.<349$3 

1318 IF M=1sP.$9$9 

1320 NEXT Ì 

1558 RETURN 

1340OsREM STORE THE CHANGED 
1558 REM BYTES IN MEMORY 

1368 P=2#DE+25E# DF +7 HED 

1578 IP=C?P): #80 

1380 P=#0968:0=7 

1330 FOR I=@ TO 7 

1408 FOR J=® TO 3 

1418 CeP2Q 

1420 IF C<7:3C=C+95G0TO 440 
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1438 C=C-#58 
1448 
14658 C=P?CQ+1) 

1468 IF C{7;C=C+S8;GOTO 1488 

1474 E=C-#58 

1488 Keke 15+ 

1438 52 CIk4+ Jak 

1508 Q=0+5 

1519 NEXT J 

1529 PeP+#20:0=7 

1530 NEXT I 

1548 RETURN 

1550LREM CURSOR POSITIONING 

1568 REM BEGIN SCREEN 

1570 X=0;Y=O:P, $50410410 

1588 GOSUB v 

1598 RETURN 

1680iREM ACCEPT HEX INPUT 

1618 IF O#2F AND CUH3AFP. SCH WeC-#50 RETURN 
1620 IF C>#4D AND C#47:P. $CHWeEC-HA1 +103 RETURN 
1E38 C=D5 RETURN 

16E40aREM MENU 











1850 P‚' "-nrmmen enen nennen ij 
1560 F. S1GINEXT 1 

1670 P‚ 

1588 P‚“ _ CTRL-N = NEXT BLOCK"' 

1E9Y P.* _ CTRL-P = PREVIOUS BLOCK" 

1788 P." _CTRL-R = RESTART"’ 

1718 P.* _ CTRL-S = ASCII (-—)HEX"$30 


1720 RETURN 

200BWREM CLEAR DISPLAY ARER 
2018 FOR I=#8069 TO WBISF STEP 4 
2020 'I=#20202020 

20650 NEXT 1 

ZBAA RETERN 
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CASSETTE GATALOG 


Het volsende prosramma is bedoeld voor mensen die (net als ik) 
m.b.v. de printer een overzicht witten maken van de srosramma's op 
hun cassettes. Het programma seeft de file-naam, het startadres, 
eindadres: executieadres en het aantal blokken. AlS het eerste blok 
(blok @) semist wordt: dan wordt het besinadres berekend, en dit 
wordt aansesven door een sterretje voor het besin adres. Als het 
laatste blok semist wordt, kan dit uiteraard niet berekend worden 
en worden ereen aantal streepjes uitsprint. (zie o.a resels 170 en 
348) 


18 REM CATALOG 5 

28 DIM RR(14) 

38 FOR N=B TO 145 RRN=SOOF NEXT 
48 P,$21 

5® GOS. p 

68 GOS. 

78 P, 6 

88 END 

SB9DIM PC-1) 

188C 

11ÖIRRB JSRICDS4 

128 SEC3 JSR#FCSS 

138 JSRICD54 

148 JSRWF7D1 

15e 

158 $Pa" FILENAME START END EXEC BLOCKS* 
178 P?Q223P1=15 

188 PaP+(LEN P)+1 

1395 
288 NOP 

218:RRB LDAAD: STAKDC: STAKSI 
228 JSR#FBBE:BVC RRilt BNE RRE 
258 LDYaB 
248 JSR4FBCS 
253 JSRHFBE2 
268 LDYaB 
27OIRRIG LDAKDS: STAHI2: BEG RRI 
288 TAY 
230: RRE DECHDS 
308 DEY: BNE RRE 
s18 LDRAI 
328 STAK 
338 JMP RRI 
Z4O:RRiL LDASSIJSRHFFES: RTS 
ZSUERRI LDAKHED, Y 

SEB CMP9#DI BEG RR2 

378 JSR&FFEI 

SB8 INYt JMP RRI 

TSAIRR2 STYHID 
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49B LDABIE: SEC: SBCHSD 


418 TAY 

G2O:RRE IJSRAF7FD 
458 DEYs BNE RRS 
440 LDA#S1: BEQ RRI 
458 LDRA8; JSREFFES 


GEB LDAAR2A; JSRHFFEI 


478 LDAAB: STAKIL 


48G:RRI LDA#DS: JSRÉFEO2 
4D LDAKD4; JSRÉFBA2 


500 JSREF7FD 


SIO:RRS LDA#DH: BPL RR7 
S20:RR1D LDAAA: STAKDC 
530 JSRÉFBEES BVC RRII: 


543 JSR&FBCS 

558 JSRHFBE2 

SEO LDA#S2; CMP&DI; 
578 JMP RRS 
SBO:RR7 LDAHDA 


S3® CLC: ADCHDE: STAED4 


5£2B LDA&DS: ADCOZ 
618 JSRHFSO2 


528 LDAKD4: JSRHFSD2 


EED JSREF7FD 


640 LDA#D7; JSRHFSG2 
658 LDAKDE: JSRHFED2 


EED JSR&F7FD 
€78 LDA&DS 


E88 CLC: ADCai: STR#DS 


EI2 LDAKDAs ADCSE 
708 JSRHF8G2 


718 LDA#DS: JSRHFBB2 


728 JSR&CDS4 
738 JMP RRS 


T4G:RRI2 LDYA14: LDABH2D 


TS5O:RRIJ JSRAFFFG 
7E@ DEY: BNE RRS 
778 JSRHCDS4 

788 JMP RRi4 

7981 

208 RETURN 


Run voorbeeld: 


CASSETTE CATALOG 


BNE RR10 


BPL RRiZ 


FILENAME START END EXEC BLOCKS 
DISASS “2308 SICE CZB2 OU11 
KLOK SAE@ ZBFB SAEG AZ02 


ERROR POINTER E20 B4E7T C2B2 DAAS 


JOHAN SIEGERS 
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FORTH 


Hier leest U het eerste deel van een serie verhalen over de 
programmeertaal Forth, met de bedoeling U een beetje warm te 
laten lopen voor het gebruik van Forth. Ik wil eigenlijk een 
serie verhaaltjes leveren die naast de in Acorn Nieuws verschenen 
‘en nog steeds verschijnende) inleiding in Forth, maar nu iets 
meer op onze eigen Atom gericht en met wat korte praktische 
voorbeslden en uitbreidingen. 


Ik begin in dit eerste deel met het beschrijven van een ombuuw 
van de standaard Forth in de richting van de lók-kaart. Wat is 
namelijk het gevel: De memorymap is geheel en al gericht op de 
12k-Atom, (#2800-#3C0O0 en #8200-#9B00)., Als we, Forth laden en 
runnen dan bevindt de dictionary met de systeemwoorden zich in 
het lags geheugen (#2800-#3C00) en de ruinte, waar onze eigen 
definities komen, in het hoge geheugen (vanef #8COQ). In dit stuk 
zit dan ook nog de tapebuffer {(1/2k) en de ruimte voor de User 
variabelen. 

Als we nu onze eigen definities gaan maken dan laden we eerst de 
screen-editor met behulp van het commando: & LOAD <CR> en (als we 
met graphics willen werken) het graphics-pachk met 18 LOAD <CR>. 
De nadelen hiervan zijn: 


a)Onze beschikbare ruimte voor definities wordt voor een grout 
gedeelte opgeslokt door de screen-editor en de graphics 
commando’ «. 

bìAls we een koude start doen zijn we de editor etc. echter weer 
kwijt en moeten we hem weer opnieuw laden. 

c)Elke keer als we Forth laden moeten we APART de editor en het 
graphics pack laden. . 

d)Bij het gebruik van graphic commando's hebber we zeer veel last 
van storingen omdat ons programme zelf cok in het graphics 
geheugen ligt. 7 

e)De 1iek-kaart wordt in het ghezel niet gebruikt. 


Wat gaan we hieraan doen?: 


a)Het systeem dusdanig wijzigen dat na Jaden van Forth en na een 
koude start onze eigen definities vanaf #2CO0 komen. De tape 
buffer verleggen we naar #7CDÓ, zodat deze samen met de ruimte 
voor de Uter variabelen precies tat #8000 loopt. We hetben dar 
nog ruim i&k voor eigen definities. 

b)De editor (en voor wie veel met graptics werkt, ook het 
graphics=-pack) wordt vast in Forth opgenomer. Als we nu dus 
ERUN"FORTH" doen hoeven we verder geen screrns meer te laden, 
maar staat de editor meteen tot onze beschikking. 

c)We voegen verder nog enkele handige woorden toe aan Forth die 
ook weer aan de "koude start" dictionary toegevoegd worden. 
Bijv. SCCS en FCOS om vanuit Forth makkelijk de verschillende 
snelheden van het cassette operating system in te kunner: 
stellen. 


Met bovenstaande wijziginger zijn alle 5 Ze oadeten verdwenen vr 
in jeder geval tiina verdwenen. 
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Een bijkomend voordeel is dat we nu ook mode 4 graphics kunnen 
gaan gebruiken. 


Ik zal nu stapsgewijs de voorgestelde veranderingen behandelen. 


1}Verplaatsing van de dictionary. 


Deze verandering staat in z’n geheel in de manual (Forth Theory 
and Practice) op pag.127. Uit eigen ervaring weet ik echter dat 
bij de eerste (en mischien ook wel bij latere) druk deze pagina 
ontbreekt, vandaar dat ik toch de hele wijziging hier zal 
bespreken. 

Wat gaan we doen?: 

=De boot-up tabel aanpassen. 

=Éen nieuwe "FORGET" definieren. 

Dit laatste is nodig omdat in forget een test op de geldigheid 
van adressen gedaan wordt, waarbij wordt zargenomen dat geldige 
adressen negatief zijn. Dit komt omdat we ons normaliter in het 
gebied #8200-#7800 bevinden, de adressen hebben hier cllemaaì een 
meest signifikant bit gelijk aan 1 (dus worden ze als negatief 
geinterpreteerd) , 

we definieren nu een nieuwe FORGET en kopieren die over de uude 
definitie. Omdat de nieuwe definitie korter is dan de vude geeft 
dit verder geen problemen. 

De Boot-up tabel bevat constanten die bi; een koude start in de 
User variabelen worden gezet zoals bijvoorbeeld de dictionary 
pointer, "DP", Deze Boot-up tabel moeten we dus wijzigen zodat de 
door ons gewenste startwaarden gezet worden. 

In onderstaande listing kunt U op de plaats waar XXXX staat de 
door U gekozen bovengrens invulle (bijv.#8000 of #6000). Dit ir, 
verband met eventuele systeemscftware die op de geheugen kaart 
kan staan. 


Listing. 

COLD { Maak de dictianary leeg » 

HEX {en schakel om naar hex » 

3COO DUP DP ! { Zet de dictiorary painter op* 

DUP 1E +ORIGIN ! { 3C00 en verander DP en z°n > 
t- boot-up waarde ) 

DUP 1C +ORIGIN ! ( Doe hezelfde voor FENCE ij 

FENCE ! 

XXXK 3C — ( Start adres var het nieuwe ) 


DUP 10 +ORIGIN ! 


User variabelen gebied ) 
= topadres-#IC 


DUP ° LIMIT ! 
204 — * FIRST ! 


Verander de waarde van de 
tonstarnten die het begin en 
einde van de tape buffer 
aangeven. 
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TEMP { Definieer de nieuwe FORGET > 
CURRENT ® CONTEXT & {en noem deze tijdelijk TEMP } 
— 1B ?ERROR € CONTEXT=CURRENT ? ‚ 

{ nee dan error message 2 ‚ 
CEOMPILE) * 
DUP FENCE 9 - { ligt het te verni jderer » 
E 2822 , J t woord beneden FENCE of in de) 
MAX < 15 ?ERROR C nucleus” ja dan error 2i Dj 
DUP NFA DP ! 
LFA 9 CURRENT 9 ! 3 

{ Nu gaan we FORGET vervangen door TEMP Dj] 

" TEMP HERE DVER 

* FORGET SWAP CMOVE { Copieer TEMP over FORSET ‚ 


FORGET TEMP 
COLD 


Zo dat was punt !. Het beste kunt U de nieuwe Forth nu saven 
zodat latere fouten ons werk niet teniet doen. 
NB: KSAVE“FORTH1" 240 400 

ESAVE“FORTH2" 2800 3COO 


2)Het vast opnemen van de Editor, 


Deze aanpassing is vrij eenvoudig en gaat cp de volgende manier: 


& LOAD { Laden van de editor screens ) 
DECIMAL { Schakel om naar decimaal D] 


( Aanpassingen in de boot-up tabel 
LATEST 12 +ORIGIN ! t top NFA wijzigen 
HERE 28 +ORIGEN ! FENCE wijzigen 
HERE ZO +ORIGIN ! idem voor de Diztionary 
pointer 


’ EDITOR & + en voor VOC-LINK 
32 +ORIGIN ! 
HERE FENCE ! Wijzig de huidige waarde van) 


FENCE ) 


Na deze wijzigingen zal de Editor ook hij een "koude" start 
aanwezig zijn. 


We Hunnen de gewijzigde versie van Forth nu weer Gaven. Daar tue 
moeten wo eerst de top van Forth weten (dwz het hoogste adres dat 
door de Forth dictionary in beslag genomer: wordt) . 
Dit doven we op de volgende manier: 
HEX { schakel om naar hex » 
DP ® U. ( print de waarde van DP » 
Deze waarde noteren me (zeg XXXX) en gaan nu met behulp van 
Sbreak> uit Forth. Daarna saven we Forth: 
ESAVE“FORTHI® 240 400 7 
3SAVE"FORTH2" 2800 XXXX 
Alx we Forth weer willen laden geven we eerst het commando: 
8LOAD“FORTHI* en daarna: 
BERLIN" FORTH2" 
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3)De uitbreidingen. 





We gaan nude woorden definieren die niet standaard bij Fort: 
geleverd worden maar wel erg handig zijn om in de dictionary te 
hebber. 


„COS 


( isechakelen van SOC Haud cassette interface 
HEX 


: COS 
FBEF 0206 : 
FS6E OZOC ! 
FAES ÓZOE ' 
C2AT DUF Z1O ! 212 ! 
FBEE 0214 ' 
FC7C 0216 * 
FC3E 0218 ! 
€276 O2IA ! 
CR. 
„" CASSETTE OPERATING SYSTEM 1" 
ER 


uwFCGS 
{ 1200 Raud cassetteoperating system. 
{ Gaai uit van de Josbox in voet 4 van de stchakel- 
t kaart. Indien U geen schakelkaart heot uf als bij U de 
‘ Josbox in een andere voet zit dient U de regel kik weg 
‘ te laten of het nummer 1e vevangen door u veietnummer 
Als U een ander 1200 Feud systeon hett can det van de 
< vern 








Jtestan dient U ont de vectoren aar te Pp 


+ FCOS 
4 BFFF C! tit 
FAEF 0206 ! COMVEC-command line interpreter 
FEE O20C ! LOAD-FILE vector 
ASE7 O20E * SAVE-FILE vector 


€ 
Ld 
Kd 
‘ 
C2AC DUP 210 ! 212 5 { goed zetten ven RDR- en STRVEC 
( alleen nodig indien men een DOS 
( gebruikt. In het andere geval 

( gewoon deze regel wegiaten 

€ 

( 

{ 

< 


AS27 O244 ! GET BYTE-vector 
AS92 O216 ! PUT BYTE-vector 
FCS8 0218 ! FIND-vector 
E27 O2iA ! SRUT-vectaor 


„" CASSETTE OPERATING SYSTEM 2" 
ER 
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c>DOS 


t Indien er geen disk=-systeem beschikbaar is dit ommando > 


t gewoon weglaten » 
CREATE DOS {Linkt naar EÔDÓ waar de vectoren 
voor DOS gezet worden 
BEB& , { STX #86; \ Bewaar het X register j 
20 C, E000 , ( JSR #EO0Os\ Initialiseer de DOS > 
BEAG , { LDX #86;\ Herstel het X register ) 
a4C C, 2842 , { JMP #2832;\ en spring naar NEXY > 
SMUDGE 
d) VLIST 
t Dit is een slimmere versie van de ingebouwde routine die > 
( de gedefinieerde woorden niet alleen list waar tit ook » 
‘ nog netjes in kolommen onder elkaar doet. ‚ 
DECIMAL 
* VLIST 


© OUT C! 31 C/L ! 
CR CONTEXT 2 2 
BEBIN 

PUP ID, DUT Ca 10 

4 14+ 10 £ DUP C/L ® 16 — > 
IF DROP CRO OUT C! 0 
THEN DUT C9 - SPACES 

PFA LFA 9 DUP Os ESC OR 
UNTIL DROP CR 


s)EXTEND 
‘ Uitvoeren van EXTEND heeft tot gevolg cat nieuw gedefi- } 
{ nieerde woorden COLD-start bestendig worden. > 
t EXTEND 


LATEST 12 +ORIGIEN ! 
HERE 28 +ORIGIN 
HERE 30 +ORIGIN ! 
HERE FENCE ! 

8 


f ) MONITOR 


{ Deze uitbreiding staat helemaal in de manual: pag 79 

t Ze geeft ons de mogelijkheid om vanuit Forth monátor com 
( mando’s te geven. Zoals bijv. MONITOR CAT em een inhouds 
‘ opgave van de band te krijgen. 


9) BASIC 


{ Terug naar het Basic systeem zander een <BREANS te hoeven } 
{ geven. Dit spreekt dacht ik voor zich, » 
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CREATE BASIC 


20 C, FFED , { JSR #FFED;\ Genereer CK‚LF ) 
4C C, C2E2 , { JMP #C2B2;\ en spring naar basic } 
SMUDGE 


Deze uitbreidingen kunnen ook weer vast aan onze nieuwe Forth 
worden toegevoegd en wel door intypen van EXTEND <CR>, Daarna 


in dit dit deel van een serietje over de programmeertaal Forth 
wil ik het hebben over het Tape systeem en de daarbij behorende 
screens. 

Hoe schrijven we normaliter een programma in Forth? We beginnen 
net het opstarten van de editor met het commando: EDITOR <CR>, 
waarna we alle woorden uit de EDITOR VOCABULARY kunnen gebruiken. 
Als we op de gebruikelijke manier het programma hebben ingevoerd 
(zie voor een handleiding: Forth Theory and Practice hoofdstuk 6} 
kunnen we dit gaan testen en wel als volgt: 

We toetsen in ENTER <CR>, de nieuwe woorden worden nu vanuit de 
tape buffer in de dictionary gecompileerd waarna we deze nieuwe 
woorden kunnen testen door hun naam en eventueel benodigde 
getallen in te voeren gevolgd door <CR>. Als alles nag niet naar 
behoren werkt gaan we dit met de Editor verbeteren. Deze manier 
van werken voldoet best aardig, er kleven echter toch een aantal 
nadelen aan die ik hier even wil toelichten: 


Als we een programma uit een tijdschrift overtypen dan is dit 
meestal geschreven voor een andere Forth computer. Daar deze 
meestal grotere screens hebben (bv:16 regels van 80 karakters) 
kunnen we deze echter niet prectes overtikken maar moeten we gaan 
comprimeren. Verder vervalt in dit geval het grootste deel van de 
testfase. Een makkelijkere manier om deze programma’s in te 
voeren zou een gewone teksteditor zijn zoals bijv. de Wordpack. 
Deze heeft namelijk veel krachtigere edit mogelijkheden dan de 
editor van Forth. Zodat het tussenvoegen van vergeten stukken of 
het verbeteren van typefouten veel makkelijker wordt. 

bìEen lang programma beslaat al snel enkele screens die dan in naam 
verschillen doordat hun nummer steeds met een wordt opgehoogd. We 
krijgen na verloop van tijd dus een bandje vol file’s die geen 
betekenisvolle naam hebben, (Wie weet na enkele weken nog dat de 
file "657" zijn kalender programma bevat?). Het zou dus beter 
zijn om als een programma eenmaal klaar is dit sen zinvolle naam 
te geven en op deze manier weg te schrijven. 

cjEen Forth screen beslaat hij de Atom attijd 512 bytes 
onafhankelijk van het aantal karakters dat dit screen bevat. Met 
niet gebruikte gedeelte wordt namelijk gevuld met spaties. Omdat 
verder de screens als afzonderlijke files naar de band gestuurd 
worden zullen we geen voordeel hebben van de Josbox FCOS met 
verkorte pauzes tussen de blokken. 


Conclusie:Het moet compacter, duidelijker en sneller. 


Om bovenstaande nadelen te verminderen heb ik een nieuwe 
laad-routine geschreven die lange files aankan met een zinvolle 
naam, Het enige probleem is nu nog om van de al bestaande Farth 
programma’s een aaneengesloten file te maken waaruit ook de 
overtollige spaties verwijderd zijn. 

Dit doen we als volgt: neem als voorbeeld de bij het systeem 
geleverde editor. Deze beslaat de screens 006 t/m O14, 
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Laadt de screens afzonderlijk in het lage geheugen dav de 
volgende commando's: 


ELOAD" 006" 2800 
LOAD" 007“ 2A00 
ELOAD“ OOB" 2C00 
LOAD" 009" 2E00 
ELDAD"O10* 5000 
ELOAD"O11" 3200 
ELDAD“O12* 5400 
XLOAD"O1S" 3400 
ELOAD“O14* 3800 


We hebben nu een lange Forth file gekregen (elk Forth screen is 
nl precies 512 bytes lang). Als einde file aanduiding plaatsen we 
nog even #04 achter de file dmv: 


?#SAOORRO4 


We zouden nu de file weer kunnen saven door 

ESAVE"EDITOR" 2800 3AOL 

in te typen. Hierbij is echter het nadeel van de overtollige 
ruimte (overbodige spaties) nog niet opgelost. 

Iedereen die de Wordpack heeft kan deze spaties mbv dit prograama 
verwijderen, Anderen zullen hiertoe een Basic of Machinetaal 
programma moeten schrijven. 


We hebben nu de nieuwe file maar kunnen deze nog niet inladen, 
dat kan wel na invoeren van het onderstaande programma. 


LISTING: 
SCR #026 SCR. #027 
( NEW LOADER —i- ) + MESO 
BASE @ HEX ER 
* SCRLOAD LOAD 7 «“ WARNING: PROBABLY ILLEBAL" 
: MLOAD TIB ® >R IN @ >R CR .* FILE FORMAT." CR 
TIB ! O EN ! INTERPRET „“ <ESC> TO ABORT" CR 
R> IN ! R> TIB ! KEY 1B = IF ABORT 
E] THEN 
CREATE OSLOAD % 
BE86 , BOA2 , bain 
20 C, FFEO , BEA& ,„ 
4C C, 2842 , 
SMUDGE 


== 
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SCR #O28 SCR #029 
0 VARIARLE PTR { NEW LOADER -3- } 
: RSP 8200 PTR ! + LOAD 
5 9 DO »“ FILENAME: 
1000 O DO LOOP QUERY GD WORD 
LOOP HERE COUNT =-TRAIL ING 
BEGIN PTR 9 Cò 2DUP + 0D SWAP C! 
OD = IF 20 PTR Dd C: DROP 80 : 8200 B2 ! 
THEN PTR ò Cò 04 = FF Bâ ECE! OSLDAD RSP 
IF 00 PTR 9 C! 8200 MLOAD CR 
ELSE PTR © C$ „" COMPILATION COMPLETED" 
20 — 0< ER 
IF MESO ; BASE ! ;S 
THEN 
THEN 
PTR © DUP 1+ PTR ! € O= 
UNTIL 
3 > 


Taelichting. 


SCRLOAD:Herdefiniering van het woord LOAD uit de standaard 
dictionary. Als we nu een screen willen laden toetsen we 
dus: 7 SCRLOAD i.p.v. 7 LOAD ín. 

MLOAD :Compileer de op #8200 geladen file in de dictionary. 

OSLOAD Machine taal routine die gen file naar het graphics 
geheugen laadt. 

MESO :Er wordt in het woord RSP gekeken of de file ook 
karakters bevat die kleiner zijn dan #20. Als dit het 
geval is wordt MESO aangeroepen om te waarschuwen dat de 
geladen file waarschijnlijk geen Forth Source file is. 

RSP :Dit waord vervangt alle <CR> in de file door een spatie 
omdat Forth nl allen spatie als delimiter kent. De regel 
“1000 o Do LOOP" is alleen van belang vaor 
diskgebruikers. Anderen kunnen deze weglaten. 

LOAD ‘Het eigenlijke commando. Eerst wordt om een Filenaam 
gevraagd waarna de boodschap PLAY TAPE volgt. Na laden 
van het programma zal dit automatisch gecompileerd 
worden, waarbij de gewone foutmeldingen gegeven worden. 


NB: Bavenstaande uitbreidingen werken alleen als Uw Forth systeem 
volgens de in Broodje 3 beschreven methode is aangepast. (Zie ook 
de Vergipsingen pagina). 
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Met deze kaart is het moselijk om EB kleuren te senereren op een 
kieurentelevisie in 2 sroepen van b. 
Groep 1 bestaat uit de Kleuren road: blauw: sroen en seel;sroeo 2 
bestaat vit de kleuren cvraanshelroodscranie en feliseel. Snel 
cverschakelen tussen deze sroepen wordt bereikt door het ' poken’ 
van een seheusenlokatiesen via prosrammeren 15 het ook Mosel ijk 
am andere kleuren te verkrijsen. 
Verderop in deze handieidins vind U cok & voorbeeld prosramma’ s. 
Verder wordt er bij deze handteidins een schema s@ieverd:een 
tekenins over hoe ge Kaart op de ATOM wordt aansestoten,een 
komponenten lijst en enkele praktische tips. 
Wanneer U de komponenten heeft aanseschaft kunt U ze op de 
print-eslaat vastsoideren zoals daarop staat aanseseven. 
De verbindins tussen de print en de ATOM kan net best en mooist 
worden semaakt met een Klein Stukje flatcable en een 
moeder-connector voor Plú4,In fisuur 2 en ZS staat aanseseven 
welke pin met welke plaats op de Print wordt verbonden. 
Wanneer U de Kaart niet sebruikt en C2 vermijdert heeft uit de 
ATDM kunt U niet Uw TV aansluitins sebruiken.Ats U echter de 
kaart laat zitten en er een zwart/wit TV op aanstuit werkt deze 
àts normaal. 
Als de kaart aansestoten is en U heeft er een kleurentelevisie 
op &ansesloten dan moet U deze op UHF zetten en hem daarna vrij 
kritisch afstelten (ait Kan dus inhouden dat de kaart niet soed 
werkt op een televisie die zichzelf automatisch afstelt!!)Hierna 
kunt U aan de trinmer 

draaien totdat U kleur krijst, (een sroen bord op een rode 
achtergrond. )Als U seen kleur verkrijst loop dan de bijiseieverde 
eventuele foutentijst af uit figuur 5. 
Een kleine test die U nu kunt doen is: 
Type in:CLERR4: ?#E08D=4&DOIF. N=#ELDD TO KIEOB S, 63! NekFFAASSOOIN. 
Nu moet U vertikaie strepen van rood,blauw,seel en sroen zien. 
Alis U nu Inseeft ?#B802=E ziet U de tweede sroep kleuren 
verschi dnen. (cyaan:orande, felrood en helseel.) 
Nu werkt de kaart dus en de ACC-DELFT wenst U veel clezier. 


FIG.S 





Wat te doen a's hij niet werkt? 


i.De Kieurkaart trekt onseveer 48 mA en daarom moet er een soe 
Voedins sebruikt worden.Ook ats de voedins onder de ú:B volt 
staat zal de Kaart niet merken! 





z.Ais U seneel zeen beeid heeft controleer dan of de draad na 
C2 wet hetemaal soed zit. 





Ars U wel beeld maar veen kleur heeft controteer dan of de 
‘lat cabel soed is aansesioten, of de transistors soed zitten en 
of de trimmer soed vast zit, (de trimmer i8 een heel sevoelis 
onderdeet ') 


4.Goed solderen is ook betansrijks taat 
soldeerpunten nos een keer vloeien. 





ntuveel aile 


S,Indien Uin verband met Uw erinter:iink 5 van de computer 
heeft onderbroken, zutt U atleen de eerste sroep kKieuren kunnen 
Krijsen. °4B002=8 zalt dan seen effekt hebben. 






Db we IN414B 
6 —BC07 
N16 =1C1 (74L504) 
N7..10 «12 (74LS86) 
FFI lC3 (4LSU) 
ESI..4 =Il& (4066) 


X 1m 4433619 MHZ f) ovozas 
ATOM COLOUR BOARD 


MODULAIORG 


SMNAIN N9099 [ 23 “Ad 


1GBUN NANNITH JO 
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BIJ HET SCHEMA VAN DE KLEURENKRART 


ONDERDELENLIJST : 


weerstanden (1/4W) 
Ri: 2,56, 9, 10, 12, 15,165:17 :1K 


RS, 7, 14: 20 SKS 

Râ: 11 +2 

RB, 15, 21, 22 278 ohm 
R18, 19 3 27 onm 
condensatoren 

E1 :.1@n 

c2 : In 

C3 t 1B...4Dp trimmer 

C4 t SSP 

cs t 22uF / LBV ELKO 

£6,7 +185n 


hälfgeleiders 

Di..4& S1N4148 

Ti,.6 :BC107 (BCIDS, BCIOS. BC237, etc.) 
3C1 :7&LS04 : 

iC2 :74L 586 

ICS :74L574 

14 4056 


diversen k 
Xi * 6,435E19 MHz Kieuren TV 'sub carrier’ kristal 


NB In de computer moet de condensator C2 (22uF) verwijderd 
worden. Punt F van de print wordt nv aancesioten op de punt 
waar eerst de + van C2 zat. (zie fisuur) 


RCC-DELFT, 
schema: R.van Drunen. 
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KLEUREN-KAART 


De kieurenkaart die de resio Delft heett semaakt, werkte bij miv 
niet zo best. 

Het bleek echter moselijk om met bescheiden veranderinsen en geringe 
kosten (ons. ft 5,-) mooie kleuren uit de kaart te krissen. Om een 
kort verhaal lans te maken zat ik eerst de werkins van het 
PAL-kteursysteem en de kleurenkaart bespreken en daarna de 
veranderingen in het Schema. 

Het Systeem, 

Een mens Kan slechts 3 kleuren waarnemen nl. rood, groen en blauws 
de rest is slechts een menssel van deze drie, Er zijn dus 3 
etektrische sisnalen nodis voor kleurentelevisie. 

Omdat zwart/wit kijkers er ook sebruik van maken moet 1 van de drie 
een z/w sisnaa!t zijn. De andere zijn dan verschilsisnalen ni. 
rood-wit en blauw-wit. 

Door opteiten en aftrekken zijn dan de 5 kleuren afzonderlijk te 
krijsen. 

Het beeld wordt in lijnen geschreven en het beeldsisnaal seeft de 
variatie in de lichtsterkte weer tijdens het schrijven. De variatie 
kan heel snet zijn en daarom is de benodigde bandbreedte van het z/w 
sisnaal hoos ni. ons. 8-4 MHz (max. á miljoen tritlinsen per sec, ). 
Voor kieur zouden we nos Z sisnalen met eik een 4 MH2 band nodis 
hebben maar dit zou teveel bandbreedte Kosten en daardoor het aantal 
beschikbare kanalen voor de talrijke zenders te klein maken, Daarom 
moeten de kleursienalen het met een Klein bandje stellen, 

Dit betekent wel verlies aan snelheid wat zichtbaar wordt als 
onscherpte in de kleuroversansen. 

Het PAl-systeenm. 

Als men 2 siesnaien met elkaar vermenisvuldist ontstaan de Som- &n 


verschilfrekwenties: b.v. ais men een beeldsisnaal met een 
sinus(draassolt) van b.v. 588 MHz vermenisvuldist Krijgt men een 
draassolf met 2 zijkanden. zie fist. Dit is een AM-sienaa! in de 


Uhf-band wat zo zou Kunnen worden uitsezonden. 

Deze techniek van het verplaatsen van een band Ssebruikt men ook om 
de kieursignaien bii het z/n sianaa!l te kunnen voesen zonder dat ze 
elkaar storen. 

De beide Kieursisnaten maken sebruik van dezelfde draassoif van 4:43 
MHz maar wel onderlins 90 sraden faseverschoven. Daardoor zijn ze in 
de tv weer uit eikaar te haten. De draasaotf wordt Uit de 
kleursisnalen verwijderd. Omdat hij in de tv noe nodis is wordt hij 
aan het besin van iedere beetdlijn even toesevoesd (de “burst“). Het 
volledise spectrum van het videosisnaal ziet er uit ais op fis.2. Om 
de Kleursignalen nos beter te kunnen Scheiden wordt nos een truukje 
uvitsehaald: het rood=wit Sisnaal wordt op een draassolf gsezet die 
bij ieder nieuwe beeldtijn omsedraaid wordt. In de TV worden een 
beeldiijn en zijn voorsanser samen senomen: het verschil en de som 
levert zo de afzonderlijke Kteursisnalen op. Hiervoor is een 
vertrasinasliin nodie die precies 1 beeidtijn vertrasing geeft. De 
Kteurenkaart Fie. seett het blokschema van de herziene 
kteurenkaart. De osciltator geeft de kKieurdraassolt: de Z-deter 
deelt de lijnfrekwentie t.b.v. de omkerins van de draassolf van het 
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4 500 MHz 500 504 
0 


geluid 





kleur 





FIG2 


rood-wit sisnaal. "X° ig de vermenisvuldiser en in “=" wordt de 
draassolf verwijderd. Daarna worden de kteursisenalen gebufferd en 
bij het Z/w sisnaal sevoesd. Fis.á seeft het voltedise schema. De 
Plaats van de Onderdeten Komt onseveer overeen wet die in het 
blokschema. Over de voedinsspootjes van IC 1 moet een condensator 
van ons. 108 nf keramisch om parasitaire oscillatie te voorkomen. De 
< van 1 nF is niet nodis. C4 (pF) is veel te Klein om 9% sraden 
vertrasins te seven. RS moet wes (Kortsiuiten). De CMOS ICá Is te 
traas of krijst te weinie spanninsi IC& dus eruit. De 
kleurversterkers (T1-T6) werden overstuurd (T1,4) en hadden seen 
2oed symmetrische instellins (T2,3/T5,6), De beide C's van 228 pF 
zijn een compromis. Neemt men hiervoor beide 278 pF dan zijn letters 
minder scherp maar ze hebben minder last van sons voorkomende 
storins, Eerst de trimmer in de oscillator afreseten: daarna de 
beide instelpotmeters en de trinmer over de insteipotseter. Als de 
1/B mw. weerstanden rechtop sezet worden passen ze in de saaties voor 
IC4. De scherpte in de Kieuroversansen is nos niet optimaai, Dit 
komt doordat het Kristal van de VDU (5,58 MHz) de Amerikaanse norm 
voor de beeldlijntijd oplevertt deze verschitt @:B % van de 
PAL-norm. Daardoor deust de vertrasinsslijn in de TV niet. Met een 
5:55 MHz Kristal zou het beter zijn. Met een spoelt is het 3:56 MHz 
Krista! omiaas te verstenmen. Misschien is dit de moeite waard, 
Overisens heb ik de Kleurenkaart in de ATOM insebouwd. 
Peter Enril ich 
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1) 


2) 


3) 


P - CHARME : BEN PAAR OPKERKINGEN 


Als alles loopt zoals het lopen moet, dan is uw regio 
vanaf ongeveer 19 april reeds in het bezit van een verbeterde 
versie van de P-Charne interpretor. Mede door de grote 
complexiteit van dit 4k (!) programma zijn er stiekem enkele 
foutjes naar hinaen geslopen. U kunt zelf controleren of 
u vernie-nummer 171 bezit (de nieuwe versie) door bet 
volgende progranma te vunnens 


10 PROGRAM TEST (P-CHARNE MET OA. CORRECTE 1200 BAUD) 
20 
30 Ze171 
4Q FOR I=EAOOO TO #AFPF. 
50 Z=Zt?1 
60 NEXT E 
TO XIP ZeCH"P-CHARNE" THEN PRINT "OK"! 
53 ELSE PRINT “ERROR IN P-CHARNE"87'" (SORREI)"* 
EKD 


Ook in de handleiding sijn enkele kleine foutjes 
geslopen: 

Pag. 9 In het voorbeeld bij het INKEY statement staat 
ten onrechte ' UNTIL $A=".* ', Dit moet uiteraard sijn 
t UNTIL AeCH"‚* '(de beschrijving van het INKET statement 
klopt echter wel). 

pag 31 In de functie MID moet 'kleiner-dan' worden 
vervangen door ‘kleiner of gelijk aan'. Zie de beschrijving 
van MID op pagina 53 van deze Acorn Nieuwe, 

pag 38 & 41 Hier miet een error-melding die bij het 
samenstellen van de lijst met error-nummers over het hoofd 
is getien. Het betreft hier error 84: Illegal FUNCTION assign- 
ment. Het toekennen van een waarde aan een functie mag nl. 
alleen gebeuren op het niveau van de functie zelf (in de 
praktijk wil dat zoveel zeggen ala 'functiewaarde toekenning 
moet gebeuren tussen bijbehorende FUNCTION en PEND'). 


Verder zijn er nog enkele misschien overbodige opmerkingen 
ta maken, die blijkbaar niet allemaal voor de hand liggen: 
TOP noet goed staan voordat een programma met behulp van de 
cursortoetsen of de EDITOR kan worden gewijzigd of met RENUM 
mag worden gerenumberd, Wees er Op bedacht dat de EDITOR en 
RENUM traag kunnen worden als het programma een redelijke 
lengte heeft. 
De ingebouwde functie, de zelf gedefinieerde functies en de 
procedures kunnen alleen bánnen een programma worden gebruikt. 
Hieronder vallen ook de multíi-dimenstonala array's. Voor wat 
betreft de functies en array's is er echter een truc. Zie hier- 
voor’ pagina 50 ev. in dit nummer ( B- statement). 
Bij XIP hoort altijd een ELSE. de regel achter ELSE mag echter 
leeg zijn (of bv. worden opgevuld met een zinnig REN statement). 


Vrijwel sonder uitzondering «ijn de reacties op P-Charne 
zeer positief. Hiervoor dank. 


En al 
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Hieris zen kort Prosramma waarvan ik zelf al heel wat Plezier heb 
gehad. 
Het proaramma veeft een listing van Proaramma’'s en wel regel na reael 
ien Jeeft het de controlcode’s aan, indien deze in wen 

aan, . 
t een beller welke de lokatie van de cursor aan3ee 
muikbaar woor hen die geen XDUMP of HUM heboen, alk: ik 

k eaeid zebruik, omdat, met buy SDUMP de rezelnummers mazal 
winden zen. 
Na Laden en runnen geeft U het beeinadres wan het te kaonkroleren 
proarsmmas oP, Cluy #2988) dan drukt IJ op SHIFT voor start en voor elke 
volgende reael. 
Hopelsk kan iemand er iets mee doen! 





en haver 
rama 


















A.PETERS REGIO ARNHEN e/o 


REM #74 CONTROLIST 747 

REM A,PETERS WEHL c "83 

REM GEEFT LISTING REGEL NA 
REM REGEL EN ZET CONTROL 

G REM CODES OP SCHERM. 

10 P.$12; IN. "ETARTADRES "A 

5; GEDE; R=#1B30AG : Cel 

30 P. "START: SHIFT" 
4AIFTHBEGI=I2T GP 

5e Gw 

6oPBe?A; Ze l: NeR;P.&As QZ A=At1 
FO1IFE>39 IFCel P.$B;G.P 

aa IFC=Q P‚"BX256+?A;AeA+t; Cat; G.P 
ZA IFB=13 C=diG. u 

I5 BeB+64;P." CTRL-";G. 1 





WORDPACK-FILE OP 4000 


HET WOLGEHDE PROGRAMMA VERHUIST DE TEKSTRIJIMTE VAN DE "UORDPACK Rit" 
HAAR HAHA, 1 KIT DE KIMPLITER Hil RUSTIG UITSCHAKELEN DF EEM REF! 
GEVEN, HDER DAT DE INGETIKTE TEKST VERLOPEN GRAT OF BESCHIDIGE 
WORGT. 

TER ONDERSCHEIDING MOET U NU AANROEPEN MET: ED40 IPV EDIT. 











4 BEM EDIT>2:ED4R /r A. PETERS 










“der 


18 fade TO H#AG1E 

25 A=6d 

3e 

4 Aad 

hel OOR BEERIJIK"® * 


B HP, PAANROEPEN MET: ED4À RETLEN 
Pa ENC 


A.PET PEGIG ARHHEN E/O 





[INT IKKEN EN_RUNNEN MAAR Laenen niews leen. asl 
5 - SCHERM 


Het onderstaande prosranma is overgenomen uit de “rundbrief 
3/4" van de Duitse ACORN Computer CLUB. 


Dit prosramma maakt het fout-zoeken in lansere erosramma’s 
een stuk semakkelijker. De inhoud van het 
beeldscherm-seheusen wordt met de inhoud van 4 
pseudo-seheusens uitsewisseid. Dit sebeurt door de votsende 
toetsen in te drukken: CTRL-A of CTRL-D of CTRL-E of CTRL-P, 
Door het indrukken van een van deze combinaties wordt de 
inhoud van het beeldscherm-seheusen en het pseudo-seheusen 
vitsewisseld, door het opnieun indrukken van dezelfde 
combinatie komt het systeen in zijn orsinele toestand terus. 
Na een BREAK kan de routine opnieun aanseroepen worden met 
LINK#283D. 


1OREM VIJFVOUDIG SCHERM DOOR KARL-HEINZ RATTAY 
Z2OREN 7808 FREIBURG, 2. 08. 82 
S@DIM LL4 
88F. Zei TO 2 
er=#2550 
188 
118 LDAO#Z8; STA#20B 
128 LDRAAKAB: STA#20A 
130 LDAAPs STARIE: STANI2 
158 JERHFES4HTAKsLDAAKB2: CLC 
158 CPXAL3BER LLI:CPXS4; BEOXLL 2: CPXS55 BEG LL1sCPKOIGEBED LLO 
188 TXA:RTS 
298:LLB ADCA2 
21@:LLi ADCA2 
22B:LL2 ADCS2 
230sLL3 
248 CLC:STAHS1 FADCA1 1 STANSTsLDYAD 
ZEBiLLG LDX#5000, Ys LDACHSO) ‚ YISTAKCRAD, Ys TKAFSTACHIG) » V 
278 LDXRB10D: YILDACHIA) , YFSTARB1OD, Ys TKASSTALHI2), Y 
288 INY:CPYBO:BNE LL4 
2398 LDASGIRTS 
422 
418 N.5P. S6:LINKH28505E. 


MEMORIE 
18 DIM PP46, MM2: Hat SBOD 
23 Zeöi0=0 
36 FOR N=1T04B; PPN=O: NEXT 
40 FOR Lw65 TO 88 
5® GOS. r5 608. r 
68 NEXT$CLEARGS GOS. m 
70 GRMODI 7 #E1=G 
88 P.s50" sate MEMORISE mement! ® 
98 P.* 1235345678" 


108 FOR R=1T06:P,' R 
118 FOR K=iT0BiP, * *, $128INEXT 
128 P.'sNEXT 
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138 #2800=28+ ' #2881 2955555555 

148 '#29050777755S5!#200ImR7 7777777 

158 '#288De4LA4 7777}: H2BLLehbAbbbGL 

160 '#2815=#55E5EEEEI ! #281 IMM PEEEEEEEE FN 


170 FOR X=69 TO 1E: 5.16 en 
189 FOR Y=25 TO 145 5.24 Ii 
190 MOVE X, Y:SHAPE#2800 en 
280 NEXT Y 

218 NEXT X 


220 ON ERR GOS. 7401 P. $30' 

238 DO ZeZ+t 

24Q FOR B=1T023P.$30 :PLAY C"4,G'á 
250 GOS. 745; P. 50° 

268 IN. "RIJ: KOLOM: "A; R=A/18K=AX10 
270 IF RG OR KB P.$7$767:G0S. 740: G. 268 KUNT Del 
275 IF RiL OR Ki P.$7$7$7:GDS. 740; G. 250 

288 IF (PP(CR-1I)#B+K)) =D P, $767$75G05. 74056, 260 
299 GOS. 7401 MMB=A 

308 P.$103E. Y=1TORIP. $10$1DIN. 

310 F‚M=1T071P. SSN. 
322 F. X=1TOKEP. 698SIN. 3P, SCPPCCRTID MBK) ) 
338 NEXT :+W=300: GOS. WIP. $5D 

345 GOS. a 

358 FOR B=1T0O2:R=MMB/ 1 0; K=MMBX 1D 

368 P.$10810IF. YEITORSP. S1041DIN, 

378 FOR M=1T07iP. SEN. 

388 FUR X=1TOK;P. $9$9 iN. ;P. SH: STG 

338 NEXT tij. 0=24 











SLCHNPE WINNAAR 





480 TXMOD:P.$12'' "HET 18 U GELUKT IN „…...nseeene en"? 
405 W=i0D:GOS. w 

418 P.* "Z" BEURTEN !!!41M! 

420 IN. “NOG EEN SPEL “$H3IF SH="JA" THEN RUN 

4350 END 


4S5OrP=A. R. K4E+L 

4568 IF PPPO@ GOTO r 

478 PPPal; RETURN 

4EONFORG=1 TOWSWAITEN, +R. 

43TaC=MM1/ 181 DeMM1XiDtE=MM2/ 103 Fe=MM2E1 0 

508 IF PPCCC-1)*8+D) O PPCLE-12#B+F) THEN ?H=1285?(H+ID =15IR. 
S19 $H=" "OOI 

520 PPCLC-1)«B+D) =D 

530 PPCLE-1) *0+F) z@ 


540 RETURN 
SSOmP. 812" MEMORIE“" * + ?#E1=0 
560 P. "EEN SPEL WAARBIJ UW GEHEUGEN"" 







578 P."OP DE PROEF WORDT GESTELD, *"* 

588 P. "OP HET SPEELVELD KOMEN 24"' 

598 P‚ "LETTER-PAREN VOOR, "* 

588 P. "AAN U DE TAAK OM IN ZO WEINIG"? 

618 P. “MOGELIJK BEURTEN ALLE PAREN"'"OP TE SPOREN. "* 
E28 P.rr""e Fam. “* 

E58 W=BODs GOS. wip. $30: CLEARS 


648 spetregels""" 

658 "U KIEST EEN RIJ EN EEN KOLOM. ”* 

E58 “HET DRARBIJ BEHORENDE KRARTJE"' 

€7@ “WORDT OMGEDRAAID EN BLIJFT" 

688 "ZICHTBAAR. ** "DRARNA KIEST WJ EEN TWEEDE KAART, " 





5698 P. "BEIDE KAARTJES BLIJVEN EEN** 
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708 P.“POOSJE ZICHTBRAR EN KEREN DAN" 

710 P, "WEER OM. "" “ZIJN DE TWEE LETTERS ECHTER"' 
728 P, "GELIJK DRN VERDWIJNEN ZE. “* 

758: LINKWFFES: RETURN 


740 P‚ SIB “ “1 &115 RETURN 
18 PROGRAM SOUND 

2e 

38 ?4D002=2:REM LMHZ 

40 Ent 


58 FDR Ist TO 15 
E8 FOR J=9 TO 68 STEP 4 


78 BEEP J,E:BEEP 69-J,E 
88 NEXT 

90 NEXT 

188 

118 


128 FOR I=1 TO 5 
158 FOR Ja5 TO 50 


140 BEEP J, 2; BEEP B9-J*2, 3 

158 _NEXT : 
168 NEXT 

170 


188 FOR Iex1 TO 68 
198 FOR Ja8 TO 9 


200 BEEP 1+J,E 
218 NEXT 
228 NEXT 


238 FOR I=53 TO t STEP —i 
248 FOR J=0 TO 3 


25e BEEP I+J,E 
258 NEXT 

270 NEXT 

280 


290 FOR I=i TO 5 
300 FOR Jaá TO 108 


310 BEEP J,E 

328 NEXT 

350 FOR Ja95 TO 9 STEP -—1 
340 BEEP J,E 

350 NEXT 

3EB NEXT 

378 

388 FOR I=S TO 1 STEP -1 
338 Kai 

«O8 FOR Jai TO 63 

418 BEEP J. 2: BEEP K,E 
426 K= {K+ 3) 863 

450 NEXT 

4468 N SL 


468 FOR I=1i TO 3 
478 FOR J=120 TO 2 STEP -2 


480 BEEP J:E:BEEP J,2 
430 BEEP J, SIBEEP J,4 
50 NEXT 


E18 NEXT 
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528 

538 FOR I=t TO 3 

548 FOR J=28 TÔ 5 STEP —1 


550 FOR K=l TO 3 

552 BEEP J,E:BEEP J+20:E 
578 BEEP J+30,E 

550 NEXT 

530 NEXT 

E08 NEXT 

618 


629 FOR I=i TO S 
638 FOR J=45 TO 1 STEP —1 


645 BEEP J,E:BEEP J+10,E 
658 BEEP J+20,E 

EED NEXT 

670 FOR J=7 TO 48 

EE@ FDR K=t TO 45 STEP J 
E98 BEEP K,E 

708 NEXT 

718 FOR K=46 TO 1 STEP -J 
728 BEEP K,E 

758 NEXT 

748 NEXT 

750 NEXT 

758 


778 FOR I=1 TO 7 
758 FOR J=20i TO 255 


735 BEEP J,2 

200 NEXT 

gig FOR J=254 TO 200 STEP —i 
828 BEEP J.2 

558 NEXT 

BAB NEXT 


258 FOR I=199 TO í STEP —1 
S58 BEEP 1,2 

878 NEXT 

880 

899 FOR I={ TD 20 

908 BEEP BBR, Al, 5 

318 BEEP 0, A. R. X20+40 
228 BEEP 4@+R. XT, 5 

338 BEEP 8, A. R‚ #20+30 
40 BEEP 47+R. %3, 5 

950 BEEP 8, A. R‚ ”20+45 
EB BEEP 87+R, #4, 5 

978 BEEP 0, A.R. £30+90 
328 NEXT 

390 

1090 FOR I=1 TO 20 

1018 FOR J=9 TO 69 STEP 4 
1828 BEEP J,E:BEEP 63-J,E 
1050 NEXT 

1050 NEXT 
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1850 
1868 FOR Iet TO 18 STEP 2 
1878 FOR J=1® TO 45 


1862 FOR Kzi TO 190 STEP J/2 
1838 BEEP KE 
1199 NEXT 
1110 FDR Km46 TO J STEP -1 
1120 BEEP K,E 
1158 NEXT 
1148 NEXT 
1158 NEXT 
1168 
1178 END 
DOOL KOF 


18 REM OVERNAME VRIJ MET 

28 REM BRONVERMELDING 

3e P‚$12" “erCREATIVE PROGRAMMING em"" 
48 P.* tama inge” 

se Pp.” kt abyrinthsden” ? > 

5D P, "MAXIMUM DIMENSIONS"" 

78 P. “SCREEN: 18k 7" 

85 P, “PAPER: UD«E8"" "7" 
aP.sLISLLSLISEL 

188 IN, “WIDTH"H 

118 IN. "LENGTH"V 

128 IF H(2 OR VL2 P. “meaninstessdimension"'';G.a 
158 DIM A6,B52 

140 $B="dimensiontoolarse” 

158 IN. “RESULT ALSO ON PAPER" $A 

168 IF HUB OR VED P.$B' ;G.a 

178 IF ?AOCH*Y" IF HiB DR V)7 P,SB':G.a 
188 ?#E1=BiP. * hd 
138 DIM WWCHEV) , VV CHU) ‚ MMS 

200 F‚Ia1 TO CH*V#2) SNWI=OIN. 
219 Ka1+A.R, XHSCe1 FWWXeC 

228 CaC+13TeXi8e1s6. f 

238LIF TOH G.d 

248 IF SOV G.c 

250 Te1iS=T1G.e 

26BcT=13S5=54+15G.e 

27@aTaT+1 

280e1F WCSeM-HeT) 2D G. 

29B4F. I=® TO SIMMTei iN. 

308 MaSeH-eTt OaMtH3 BeM-HileM- ts Rett 1 
318 IF Semi MMi=O1G. 4 

328 IF WWBOD MMmi=D 

3IOsIF Say MMI=DG. h 

348 IF WWOOD MMS 

SSOnIF Tai MMO=BIG. í 

368 IF WWLOG MMOxD 

370 IF Tek MM2=D3G. 

388 IF WWROB MM2=0 

SIOs5IFMMAe A IF MMi=A IF MM2=D IF MM3=4 Gn 
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400 DO Y=A.R. 4 
418 UNTIL MMYOS 
428 G. C435B+Ye 1D) 
438 WUL=CHVVL=E2I T=T- 15 Gm 
440 WWB=CtVVB=14S=5-15 6. m 
450 WIR=CHVVM=CUVM OB) +23 T=T+13G, 1 
GEB WIO=CHVVM= (VVM B) #2+1 5 5=5ti 
&7ONESC+HIG IF COH*V+1 G. f 
48B IF ?A=CH"Y" P,$2$50527$54 IF H)20 P,#29827855 
498 P,$125F, I= 1 TO H 
580 IF I=X P.", "$G.n 
518 P,v‚ 
S28nN. ;P, *, «7 
558 ZeltA.R, XCH-1) VV CHEVY) =0 
54D VVCHIV-HEZ) =1 VV CHEV-H+Z) /2e2 
558 F‚J=1 TO ViP, "I" 
550 F‚I=1 TO H 
578 IF VVLJ*H-HIID (2 P,"  1“:G.0 
588 P. * el 
SIBON, IsP. * 
EBB F‚I=t TO H 
618 IF WVEIJKH-H+IJX2 P.“: "56, p 
520 P‚ il 
ESBpN. ISP, “2! iN. JiP. $5HE. 
8 \\ R. OVEREEM // 





REM: PROGRAMMA OM BEGINADRES 

REM: VAN EEN REGELNIJMMER TE 

REM: ZOEKEN EN DAAR BY. 

REM: XDUMP TE STARTEN. 

REM:GEEF STARTADRES VAN 

REM:HET PROGRAMMA IN #.... 

REM:DAN HET REGELNUMMER. 

REM:HET ANTWOORD KAN EVEN 

REM:OP ZICH LATEN WACHTEN. 

B2-84 A,PETERS WEHL 

1ar. lj 

28 IN. "BEGINADRES *R 

38 IN.’ "REGELNIJMMER "B 

48bIF 7A=13 GO5.,a 

56 A=A+ti;G.b 

SBaAz=At1;IF PA=RFF P‚' REGEL "E" KOMT NIET VOOR! "*"*;G.1@ 
70 2=PAK2T6; R=A+1; 2eZ+7A 

36 IF Z=B P,’"REGEL "Z" BEGINT OP #"&A-2;E=B;P. 
Aa RR. 


DOPDEVEONE 











